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REM % 
IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-DZ20MA-C-0 
PRODUCT NAME:  OM11 LOGIC TESTS 
DATE RELEASED: NOVEMBER. 1977 
MAINTAINER: DIAGNOSTIC GROUP 


- 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
PESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY 1S ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES 
COPYRIGHT (C) 1972,1977 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT COPPORATION: 


CIiGiTAL PoP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 
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1. ABSTRACT 


TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR TESTING THE 
DM11 (ASYNCHRONOUS DATA MULTIPLEXER), MAINDEC-11-DZDMA (OM11 
LOGIC TESTS), AND MAINDEC-11-DZDMB (OM11 MULTIPLE LINE DATA 
TESTS). THE LOGIC TESTS INDIVIDUALLY TEST EACH OF THE 
16 DM11 LINES AND ALL COMMON LOGIC. THE MULTIPLE LINE DATA 
TESTS RUN SEVERAL LINES CONCURRENTLY AND ARE USED TO TEST LINE 
INTERACTION AND DATA TRANSMISSiON/RECEPTION RELIABILITY 
THIS DOCUMENT DESCRIBES THE LOGIC TESTS. 
THE AVAILABLE TESTS ARE: 

PRGO - LOGIC TEST 

PRG1 - TRANSMITTER SCOPE LOOP 

PRG2 - TPANSMIT/RECEIVE SCOPE LOOP 


REGUIPENENTS 


to 


24 EQUIPMENT 
A PDP 11 FAMILY PROCESSER 
C SUNPERS CONNECTING 16 TRANSMITTERS TO THEIR RESPECTIVE 
RECEIVERS. 
22 STORAGE 


THIS PROGRAM USES ALL OF CORE (8K) EXCEPT THAT AREA RESERVED 
FOP THE LOADERS. 


3 LOADING PROCEEDUFE 
THE ABSOLUTE LOADEF 15 USEC TO LORD THE PPOGPRAM 


| 


MAINDEC-11-OZDMA-C OM11 LOGIC TESTS 
DZOMAC P11 22-NOV-77 17:57 


MACY11 30(1046) 


D 1 
30-NOV-77 09:34 PAGE 4 


USE PROCEDURE 
STARTING PROCEDURE 
BEFORE STARTING MAKE SURE THAT THE TTY IS IN REMOTE MODE, AND THE 


JUMPERS ARE INSTALLED. 


THREE STARTING ADDRESSES ARE PROVIDED 


0200 - THIS STARTING ADDRESS REQUESTS DM11 PARAMETERS. AND MUST 
BE USED TO INITIALLY START THE PROGRAM. AND WHENEVER ANY OF THE 
PARAMETERS LISTED BELOW IS CHANGE D. 


0 


NOTES: 


VECTOR ADDRESS ? 
RESPONSE: TYPE IN THE VECTOR ADDRESS OF THE DM11 RECEIVER 
UNDER TEST. CARRIAGE RETURN SELECTS 0300 


UNIT #(8)? 
RESPONSE: THE DM11 UNIT NUMBER CORRESPONDS TO THE 
ADDRESS TO WHICH THE CLOCK STATUS REGISTER (CSR) RESPONDS. 


CSR ADDRESS OM11 UNIT & CSR ADDRESS DMi1 UNIT # 
175000 0 175100 10 
175010 1 175110 11 
175920 2 175120 12 
175030 3 175130 13 
175040 “ 175140 14 
175050 5 175150 15 
175060 6 175160 16 
175070 175170 17 


? 
CARRIAGE RETURN SELECTS UNIT # 0 


WHAT 1S THE CHARACTER LENGTH? 

RESPONSE: CHARACTER LENGTH REFERS TO THE NUMBER OF DATA 
BITS PER CHARACTER (5-8). CARRIAGE RETURN SELECTS 8 DATA 
BITS PER CHARACTER 


PPG # 
RESPONSE: TYPE PROGRAM NUMBER OF PROGRAM YOU WISH TO 
RUN. CARRIAGE RETURN SELECTS PROGRAM & 90 


CARRIAGE RETURN TERMINATES ALL RESPONSES 
ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ? TYPEOUT AND 
THE PARAMETER WILL AGAIN BE REQUESTED 


0204 - THIS STARTING ADDRESS USES PREVIOUSLY DEFINED OM11 


PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE 
PROGRAM YOU WISH TO RUN. 


0210 - THIS STARTING ADDRESS STARTS THE PREVIOUSLY SELECTED 


PROGRAM USING PREVIOUSLY SELECTED PARAMETERS 
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SWITCH SETTINGS 
THE FOLLOWING SWITCH SETTINGS APPLY TO PROGRAM #0 


SR 0-6 ROUTINE TO BE RUN (IF ENABLED BY SR-9) 
SR 8 RING BELL CN ERROR 

SR 9 LOOP SELECTED ROUTINE 

SR 11 INHIBIT ITERATION (DO EACH ROUTINE ONCE) 
SR 13 INHIBIT PRINTOUT 

SP 14 SCOPE (LOOP ROUTINE) 

SR 15 HALT ON ERROR 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 

SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS 1S THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 

3 U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING G 

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH |S PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (1E) ERROR ROUTINES. AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS 
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5.0 PROGRAM DESCRIPTION 
5.1 PRGO - LOGIC TESTS 


PRGO CONSISTS OF 152(8) INDEPENDENT ROUTINES WHICH TEST 
VARIOUS FUNCTIONS OF THE DM11 HARDWARE. ANY OF THESE ROUTINES 
MAY BE INDIVIDUALLY SELECTED AND RUN (SEE SEC. 4. 2 FOR SWITCH 


| 

SETTING) 

5.1.1 ROUTINE DESCRIPTION 

ROUTINE TESTS 

RTO TESTS THE ABILITY TO REFERENCE THE FOUR DM11 REGISTERS 

CONTROL STATUS REGISTER (CSR), BUFFER ACTIVE REGISTER (BAR), 

BREAK STATUS REGISTER (BKCSR). AND THE BASE REGISTER (BASREG) . 

IF AN ILLEGAL REFERENCE OCCURS WHEN THE CSR IS REFERENCED THE 

PROGRAM WILL INDICATE AN ERROR, AND AUTOMATICALLY LOOP THE ERROR 
| 
| 


AS LONG AS THE ERROR CONDITION EXISTS. 
RTO PC=XXXXXX 


RT1-RT10 BiT ‘BANGS’ THE CSR (BITS 0,1,2,4,5,6.12.13)- TESTING THAT 
EACH BIT IN THE CSR CAN BE INDIVIDUALLY SET AND CLEARED. TWO ERROR 
TYPES ARE DETECTED IN THESE TESTS. A BIT FAILED TO SET. AND/OR A 
BIT FAILED TO CLEAR. THE ERROR PRINTOUT SHOWS THE ROUTINE THAT 
FAILED AND THE PC WHERE THE ERROR WAS DETECTED 


RTi1- TESTS THAT RESET AND CLEAR CLEAR ALL R/W BITS IN THE CSR. THO 
ERROR TYPES ARE DETECTED IN THIS ROUTINE SHOWING THE CONTENTS OF THE 
CSR AFTER THE RESET & CLEAR INSTRUCTION. THE PROGRAM AUTOMATICALLY 
LOOPS IF AN ERROR OCCURS. SHOWN BELOW iS THE ERROR TYPEOUT. 

PT11 PC=XXXXXX ERR S/B: OOGQ00 WAS: XXXXxxX 
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RT12 LOADS A BINARY COUNT PATTERN INTO THE BKCSR AND READS BACK 
THE RESULTS. IF THE ORTA READ BACK IS INCORRECT AN ERROR IS INDICATED 
THE SCOPE SWITCH WILL CAUSE THE PROGRAM TO RELOAD THE BINARY NUM- 

BER AND REPEAT THE TEST. THE ERROR TYPEOUT SHOWS CORRECT AND 

ACTUAL RESULTS. 

THE SECOND PORTION OF THE TEST CLEARS THE PREVIOUSLY LOADED NUMBER 

IF THE SCOPE SWITCH IS SET THE PROGRAM LOOPS BACK AND REPEATS 

THE CLEAR INSTRUCTION. 


RT13 THIS ROUTINE LOADS RANDOM NUMBERS INTO THE BKCSR. IF A 
RANDOM NUMBER 1S LOADED INCORRECTLY AN ERROR IS INDICATED SHOWING 
THE CORRECT AND ACTUAL RESULTS 


RT14 THIS ROUTINE TESTS THAT RESET WILL CLEAR ALL BREAK STATUS REG- 
ISTER (BKCSR) BITS. IF ALL BITS DO NOT CLEAR WHEN THE RESET 1S GIVEN 
AN ERROR 1S INDICATED. THE ERROR TYPEOUT SHOWS THE CORRECT RESULT 
(ALL O'S) AND THE ACTUAL RESULT. 


RT15-RT16 THESE ROUTINES ARE THE SANE AS RT12 & RT13 EXCEPT THAT 
THE BASE REGISTER iS TESTED 


RT17 THIS ROUTINE TESTS THAT ALL BAR BITS CAN BE INDIVIDUALLY 
SET AND CLEARED. THE ROUTINE SHIFTS A ‘1° THROUGH THE BAR THEREBY 
SETTING EACH BAR BIT AND THEN THE BAR BIT IS CLEARED. THE ERROR 
TYPEOUTS SHOW CORRECT AND ACTUAL RESULTS 


R720 THIS ROUTINE TESTS THAT RESET AND CLEAR CLEAR ALL BAR BITS 
THE ERROR TYPEOQUT SHOWS CORRECT AND ACTUAL RESULTS 


RT21-RT23 THESE ROUTINES TEST THAT THE CSR. BAR. AND BKCSR RESPOND 
PROPERLY TO BYTE COMMANDS. BOTH BYTES ARE REFERENCED IN THESE 
ROUTINES USING CLRB INSTRUCTIONS. THE ERROR TYPEOUT SHOWS CORRECT 
AND ACTUAL RESULTS. 


RT24 THIS ROUTINE TESTS THAT THE DM11 CAN INTERRUPT THE PROCESSOR 
WIA THE OVER RUN BIT (CSR BIT 13). THE ERROR TYPEOUT SHOWS THE 
ROUTINE NUMBER AND THE PC WHERE THE ERROR WAS DETECTED 


RT25 THIS ROUTINE TESTS THAT THE DM11 INTERRUPTS THE PROCESSER 
AT THE PROPER LEVEL. 


RT20-RT4S THESE ROUTINES TEST THE BASIC TRANSMITTER FUNCTIONS 
ON EACH LINE 

RT4YO-RT6S THESE ROUTINES TEST THE BASIC RECEIVER FUNCTIONS ON 
EACH LINE 


RT66 THIS ROUTINE TESTS THAT THE DM11 WiLL SET THE NEX BIT 

(CSR BIT 14). WHEN THE DM11 TRIES TO TRANSMIT FROM NON-EXISTANT 
MEMORY. ALL LINES ARE INDIVIDUALLY TRANSMITTED ON THE ERROR TYPEOUT 
SHOWS THE FAILING LINE. ALSO TESTED 13 THAT THE NEX BIT WHEN SET 
CAUSES AN INTERRUPT 
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RT67 THIS ROUTINE TESTS THAT THE NEX BIT (CSR BIT 14%) SETS 
WHEN THE OM11 TRIES TO REFERENCE THE TUMBLE TABLE THAT IS IN NON- 
EXISTANT MEMORY. 
RT70 THIS ROUTINE TESTS THAT WHEN THE GO BIT (CSR BIT O) IS 
CLEAR THAT NO DATA IS RECEIVED ON ANY LINE. ALL LINES ARE TRANS- 
MITTED ON AND AFTER THE TRANSMISSION IS COMPLETE THE RECEIVER DONE 
orca —_— THE ERROR TYPEOUT SHOWS THE LINE ON WHICH DATA WAS 
i VED. 

THE TYPEQUT SHOWN BELOW SHOWS THAT DATA WAS RECEIVED ON LINE O 
RT70 PC=XXXXXX ERRS/B: 000001 WAS: 000001 
RT71 THIS ROUTINE TESTS THAT THE CURRENT ADDRESS |S INCREMENTED 
PROPERLY BY THE OM11. THE TABLE BELOW SHOWS THE ADDRESS LOADED 
INTO IN THE CURRENT ADDRESS TABLE BEFORE 2 CHARACTERS ARE TRANSMITTED 
AND THE RESULTANT ADDRESS AFTER THE CHARACTER IS TRANSMITTED 

BEFORE AFTER BEFORE AFTER 

000000 000001 000777 901000 

000001 000002 001777 002000 

000003 900004 003777 004000 

000007 000010 007777 910000 . 

009017 000020 017777 020000 

000537 000046 037777 040000 

000077 000100 077777 100000 

#000177 000200 177777 900000 
000377 000400 
> THE ERROR TYPEOUT SHOWS CORRECT AND ACTUAL CURRENT ADDRESS 


RT72 THIS ROUTINE TESTS THAT DATA CAN BE TRANSMITTED FROM ALL 
AVAILABLE CORE AND RECEIVED CORRECTLY. THIS IS DONE BY TRANS- 
MITTING 1 CHARACTER FROM SEVERAL ADDRESSES IN EACH 4K BLOCK OF 
CORE ON LINE 0. THE ERROR TYPEQUT WILL SHOW TRANSMITTED AND 
ACTUAL RECEIVED DATA. IF A DATA ERROR RESULTED WHEN TRANSMITTING 
FROM THE FIRST 4K OF CORE EXAMINE THE CURRENT ADDRESS OF LINE 0 
TO DETERMINE WHERE IN THE FIRST 4K OF CORE THE DM11 WAS TRANSMIT- 
TING FROM WHEN ERROR OCCURRED. FOR ERRORS IN OTHER 4K BLOCKS THE 
CORRECT RESULT CORRELATES TO THE ADDRESS WHERE THE ERROR OCCUR- 
RED. FOR EXAMPLE 


RT72 PC=XXXXXX ERR S/B: 000001 WAS XXXxXxXx. 

INDICATES THAT THE DM11 FAILED TO TRANSMIT AND RECEIVE CORRECT 

DATA WHEN TRANSMITTING FROM LOCATION 20000 

THE TEST |S ABORTED BEFORE TRANSMITTING IF THE COPE LOCATION IS 
NON-EXISTANT 
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RT73 THIS ROUTINE TESTS THAT THE TRANSMITTER CAN TRANSMIT 

100 CHARACTERS ON EACH LINE. THE ROUTINE TESTS THAT EXACTLY 

100 CHARACTERS HAVE BEEN TRANSMITTED BEFORE READY (CSR BIT15) 

SETS AND THE BAR BIT CLEARS. THE ERROR TYPEOUT GIVES THE NUMBER 

OF ge Te RECEIVED AT THE TIME OF AN ERROR. AND THE FAILING LINE 
NUM (X2). 


RT74 THIS ROWTINE TESTS THAT THE DM11 WILL STORE DATA SEQUENTIALLY 
IN THE TUMBLE TABLE AND ALSO THAT THE POINTER RETURNS TO THE TOP 
OF THE TABLE WHEN 64 CHARACTERS HAVE BEEN RECEIVED 


RT75-114 THESE ROUTINES CHECK THAT A BREAK CAN BE 
TRANSMITTED AND RECEIVED ON ALL ALINES. 
R115-R134 THESE ROUTINES INDIVIDUALLY TRANSMIT, RECEIVE 


AND CHECK DATA PLUS PARITY ON EACH OF THE 16 DM11 LINES. ONLY 
DATA AND PARITY ERRORS ARE REPORTED 


PT131 THIS ROUTINE SIMULTANEOUSLY TRANSMITS AND RECEIVES A 
CHARACTER (ALL 1°S) ON THE 16 DM11 LINES. THE FOLLOWING TESTS 
ARE PERFORMED: 

A: THERE ARE 16 DATA ENTRIES (1 PER LINE) 

B: THERE ISN'T A 17TH ENTRY 

C: DATA IS CORRECT 

D: ONE ENTRY FOR EACH LINE 


FT136 THIS ROUTINE TRANSMITS A BREAK ON EACH LINE. TESTS PERFORMED 
ARE THE SAME AS IN RT135 


RT137-RT144 THESE ROUTINES TRANSMIT 64 CHARACTERS ON EACH LINE 
WITH A DELAY BEFORE BEGINNING TRANSMISSION ON THE NEXT SUCCESSIVE 
LINE. THE DELAY BEFORE TRANSMITTING ON THE NEXT LINE IS HALVED 
BY SUCCESSIVE TESTS. NO DATA CHECKING IS PERFORMED BY THESE 
TESTS. TESTED ARE THAT OVER RUN (CSR BIT13) AND NEX (CSR BIT14) 
ARE NOT SET DURING TRANSNISSION/RECEPTION 


PT145 THIS ROUTINE TESTS PROPER OPERATION OF THE HALF DUPLEX 
BIT (CSR BIT1) 


RT146 THIS ROUTINE TESTS THAT THE DM11 COMES TO AN ‘ORDERLY 
HALT’ WHEN THE RESET INSTRUCTION IS GIVEN. ‘ORDERLY HALT’ IS 
DEFINED AS CSR, BAR. AND BKCS CLEAR IMMEDIATLY AFTER THE RESET 
INSTRUCTION AND STAY CLEARED 


PRGi- TRANSMITTER SCOPE LOOP 
PROGRAM 1 ALLOWS THE USER TO SCOPE THE DM11 TRANSMITTER FUNCTIONS 
WITH THE DM11 CONTINUOSLY RUNNING UNDER USER SUPPLIED PARAMETERS 


PRG2- TRANSMITTER/RECEIVER SCOPE LOOP 
PROGRAM 2 ALLOWS THE USER TO SCOPE THE DM11 RECEIVER FUNCTIONS WITH 
THE OM11 CONTINUOULY RUNNING UNDER USER SUPPLIED PARAMETERS 


SEQ 0008 
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6.0 PROGRAM 1 AND PROGRAM 2 PARAMETERS 
WHEN PROGRAM 1 OR PROGRAM 2 ARE SELECTED ADCITIONAL PARAMETERS WILL 
BE REQUESTED BY EACH PROGRAM AS SHOWN BELOW 


A: TYPE LINES TO BE TESTED 
EXAMPLES 
TYPE TO SELECT LINE(S) 


77 ALL 
NOTE. LINE NUMBERS ARE GIVEN IN OCTAL. 


B: HOW MANY CHARACTERS 

TYPE THE NUMBER OF CHARACTERS YOU WISH TO TRANSMIT. NOTE. 
THE — OF CHARACTERS MUST BE LESS THAN 200, AND !S TAKEN 
IN OCTAL. 


. 
| 
| 
| 
| 
| 
| 
| 

C: PUT CHARACTER iN SR (0-7);DELAY IN SR (8-15) 

SELF-EXPLANATORY. NOTE. THE DELAY REFERS TO A DELHr AFTER 

ALL THE CHARACTERS HAVE BEEN TRANSMITTED AND BEFORE A NEW 

TRANSMISSION PERIOD BEGINS. 

| 


7.0 PROGRAM LIMITATIONS 
BECAUSE THE OM11 DIAGNOSTICS ARE INSENSITIVE TO ‘REAL’ ELAPSED TIME 
7 THE DIAGNOSTIC DOES NOT ‘KNOW' IF THE Ori! IS OPERATING AT THE COR- 
ECT FREQUENCY OR THAT THE STOP CODE SELECTION LOGIC IS CORRECT. 
HESE SHOULD BE CHECKED WITH A SCOPE. 


8.0 PROGRAM NOTES 
iF THE POWER FAILS THE PROGRAM TYPES AN ERROR MESSAGE INDICATING THE 
ROUTINE THAT WAS RUNNING (PROG #0 ONLY) AND RESTARTS THE PROGRAM. 


KXEAKKAAEAAEREREAEKA IMPORTANT NOTE XXKSKKERKEKK AE KRE 
POWER FAIL TEST 
A TEST OF THE POWER FAIL LOGIC SHOULD BE PERFORMED ON EACH UNIT 
SELECT & RUN ROUTINE 144 (L.A. = 210 SR =5144 PRESS START). TURN 
THE POWER OFF THEN ON. THE PROGRAM WILL TYPE OUT THE POWER FAIL 
ERROR 
. R144 PC=003622 F 
AND CONTINUE RUNNING ROUTINE 144. LOWER SR 9 AND WAIT FOR END OF 
TEST MESSAGE. ‘TEST DZDMA COMPLETE ' 
NOTE: IF THE POWER 1S TURNED OFF DURING A RESET INSTRUCTION THE 
PROGRAM WILL HALT. PRESS CONTINUE AND REPEAT THE TEST 


1F THE PROGRAM HANGS THE BUS EXAMINE THE CONTENTS OF RTNNO. THE 
CONTENTS OF RTNNO !S THE ROUTINE NUMBER THAT WAS RUNNING AT THE TiME 
OF THE FAILURE. 
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177776 
177776 
ococo4 
000240 
0C0G00 
100000 
100600 
640000 
020000 
010000 
604000 
002000 
001009 
030400 
000200 
000100 
000040 
060020 
000010 
000004 
000032 
000001 
100000 
040000 
620000 
010600 
004000 
002000 
001000 
006400 
000200 
000100 
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TITLE MAINDEC-11-DZ20MA-C OM11 LOGIC TESTS 
.NLIST MC, MD, CND 

.LIST ME 

. ENABLE ABS. ANA 


;DM11 LOGIC TESTS DIAGNOSTIC (MAINCEC-11-D20MA) 
COPYRIGHT 1972,1977 DIGITAL EQUIPMENT CORP.. MAYNARD, MASS. 01754 
;PRGO- INPUT-OUTPUT LOGIC TESTS 

,PRG1-* TRANSMITTER SCOPE LOOP 

*>PRG2- TRANSMIT/RECEIVE SCOPE LOOP 

*>STANDARD SR SWITCH OPTIONS (SWITCH SET TO Al ) 
;SR15- HALT ON ERROR 

>SR14- SCOPE. 

>SR13- INHIBIT PRINTOUT 

+SR12- INHIBIT TRACE (NOT USED) 

+SR11i- INHIBIT ITERATION 

>SR1i0- LOOP PROGRAM. (NOT USED) 

> SR9- LOOP ROUTINE. 

;SR8- RING BELL ON AN ERROR 

>SR6& THROUGH SRO - NUMBER OF ROUTINE TO BE LOOPED. 


“EQUATE STATEMENTS 
CC=17777€ 
PSW=177776 
ERRVEC=4 
NOP=240 
OPEN=0 
MANUAL =B 1715 
LB81T17=100000 
LB1T16=40000 
LB17T15=20000 
LB1T14=10000 
LBiT13=4000 
LB1T12=2000 
LB1T11=1000 
LB1T10=400 
LB11T7=200 
LB1Te=100 
LBITS=40 
LBIT4=20 
LBIT3=1G6 
LBiT2=4 
LBIT1=2 
LBITO=1 
B11T15=100000 
B1T14=40000 

Tide 20000 


;ADDRESS OF ERROR TRAP VECTOR 


MODOWDWWDOD 


SEQ 0010 


ee | 
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104005 SRESET=EMT+S 

104006 SCOPE=EMT+6 : 

104007 SAVREG=EMT+7 . 

104010 RSTREG=EMT+10 

104011 ERRORI=ENT+11 

104012 INITIAL IZE=EMT#12 

104013 SUSWR=ENT+13 

104014 KBDIN=EMT+14 | 
104015 CNTLUSEMT#15 [ 
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000640 BITS=40 
000020 B81 T4=20 
000010 BIT3=10 
c00004 BIT2=4 
000002 BiTi=2 
000001 BITO=1 | 
005726 POPSP=5726 ;POP THE STACK. SAME AS TST (6)+ 
022626 POPSP 2=022626 PCP STACK TWICE. SAME AS CMP (6)+. (6)4 
C0034Q PRTY7=340 ;PRIORITY LEVEL DEFINITIONS 
000300 PRTY6=300 
000240 PRTY5=240 
000200 PRTY4=200 | 
000140 PRTY3=140 
000100 PRTY2=100 
000040 PRTYi=40 
coooac PRTYO=0 
;LINE NUMBERS 
000000 LINEO=9 
000002 LINE1=2 
ooo004 LINE2=4 
coooce LINE3=6 
000910 LINEY=10 
000012 LINE5S=12 
000014 LINE6=14 
000016 LINE7=16 
000020 LINE10=20 
000022 LINE11=22 
000024 LINE12=24 
000026 LINE13=26 
000030 LINE14=30 
000032 LINE 15=32 
000034 LINE 16=34 
000036 LINE17=26 
ooocco RO=%0 
000c01 R1=%1 
| oouc02 R2=%2 
000003 R3=%23 
000004 R4=%4 
000005 RS=%5 
000006 SP=%6 
000007 PC=%7 
>EMT CALLS 
104090 TYPE=EMT+0 
104001 ERROR=EMT+1 
104002 DATCHK=EMT+2 
104003 CHAL T=EMT+3 
: 104004 EHAL T=ENT+4 
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000000 
000002 
00004 
000006 
000010 
000012 
000014 
000016 
900020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 


000112 . 


000114 
000116 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 


104400 
000007 
177777 


000000 
177777 
000000 
ocoo00 
000002 
000900 
000006 
000000 
000012 
000000 
000016 
000000 
000022 
000000 
000026 
000000 
002606 
000340 
005506 
000340 
000042 


O0C0000 .. 


000046 
000000 
000052 
000000 
000056 
000000 
000062 
000000 
000066 
000000 
000072 
000000 
000076 
000000 
000102 
000000 
000196 
000000 
000112 
000000 
000116 
000000 
000122 
000000 
000126 
000000 
000132 
006900 
000136 
000006 
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MACHER: 


DELAY=TRAP+0 


BELL=007 

RTLAST=-1 

Y20 

X=-1 

A=0 

42 ; UNASSIGNED TRAP 

HALT 

“42 SP OVERFLOW, BUS ERROR TRAP 

HALT 

+2 RESERVED INSTRUCTION TRAP 

HALT 

"42 TRACE TRAP 

HALT 

"42 STRAP TO CALL 10x 

HALT 

42 POWER FAIL TRAP 

HALT 

ENTINT EMT TRAP 

PRTY? 

OLY STRAP TRAP. SIMILAR TO EMT 

PRTY? 

42 

HALT STRAPPED TO PREVIOUS ADDRESS 
“42 

HALT TRAPPED TO PREVIOUS ADDRESS 
+2 

HALT TRAPPED TO PREVIOUS ADDRESS. 
"42 

HALT ; TRAPPED TO PREVIOUS ADDRESS. 

42 

HALT TRAPPED TO PREVIOUS ADDRESS 
_ +2 

HALT TRAPPED TO PREVIOUS ADDRESS 

42 

HALT STRAPPED TO PREVIOUS ADDRESS 
42 

HALT “TRAPPED TO PREVIOUS ADDRESS 

+2 

HALT “TRAPPED TO PREVIOUS ADDRESS 

42 

HALT TRAPPED TO PREVIOUS ADDRESS 
+2 

HALT - TRAPPED TO PREVIOUS ADDRESS 
. +2 

HALT TRAPPED TO PREVIOUS ADDRESS 
+2 

HALT STRAPPED TO PREYIOUS ADDRESS 
. +2 

HALT TRAPPED TO PREVIOUS ADDRESS 
+2 

HALT TRAPPED TO PREVIOUS ADDRESS 
42 

HALT TRAPPED TO PREVIOUS ADDRESS 
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SEQ 0012 


| 
| 
| 
| 
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000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
000172 
000174 
000176 
000200 
000202 
000204 
000206 
000210 
000212 
000214 
000216 
000220 
000222 
000224 
000226 
000230 
000232 
000234 
000236 
000240 
000242 
000244 
000246 
000250 
000252 
000254 
000256 
000260 
000262 
000264 
000266 
000270 
000272 
000274 
000276 
000300 
000302 
090304 
000306 
000310 
000312 
000314 
000316 


000142 
000000 
000146 
000000 
000152 
000000 
000156 
o0c0000 
000162 
000000 
000166 
000000 
000172 
000000 
000176 
000000 
000202 
000000 
000206 
000000 
000212 
o0co000 
000216 
000000 
000222 
000000 
000226 
000000 
000232 
000000 
000236 
000000 
000242 
000000 
000246 
000000 
000252 
oc0000 
000256 
000000 
000262 
000000 
000266 
000000 
000272 
000000 
000276 
000000 
000302 
000000 
000306 
000000 
000312 
006900 
000316 
000000 
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; TRAPPED 
; TRAPPED 
+ TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
> TRAPPED 
: TRAPPED 
> TRAPPED 
» TRAPPED 
; TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
: TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
; TRAPPED 
> TRAPPED 
> TRAPPED 


N 1 
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PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


PREVIOUS 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREWIOUS 
PREVIOUS 
PREVIOUS 


ADDRESS. 
ADORESS. 
ADDRESS. 
ADORESS 
ADORESS. 
ADORESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADORESS. 
ADORE SS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS 
ADDRESS 
ADDRESS. 
ADDRESS 


ADDRESS 
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000320 
000322 
000324 
000326 
000330 
000332 
000334 
000336 
000340 
000342 
000344 
000346 
000350 
000352 
000354 
000356 
000360 
000362 
000364 
000366 
000270 
000372 
000374 
000376 


22-NOV-77 


000322 
000000 
000326 
000000 
000332 
000000 
000336 
000000 
000342 
000000 
000346 
000000 
000352 
000000 
000356 
000000 
000362 
000000 
000366 
000000 
000372 
000900 
O0037b 
000000 
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; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
+ TRAPPED 
; TRAPPED 
> TROPPED 
+ TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
» TRAPPED 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREV!OUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREWIOUS 


ADDRESS. 
ADORESS. 
ADDRESS. 
ADORESS. 
ADDRESS. 
ADORESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 


ADDRESS 


C 2 
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DZOMAC. P11 22-NOV-77 17: 57 SEQ 0015 
000046 =46 
000046 002544 SENDAD 
00052 =52 
000052 060000 60000 
000174 2174 
000174 900000 DISPREG: 0 
600176 00000 SWREG: 0 
000200 = 
000200 00C137 002066 JMP GO TO START OF DIAGNOSTIC. 
000204 000137 O02i34 JMP ;GO GET PROGRAM # & RESTART PROGRAM 
;USING PREVIOUS DM11 PARAMETERS 
900210 000137 O02222 JMP RESTART PREVIOUS PROGRAM US!NG 
»PREVIOUS DM11 PARAMETERS 
001100 .=1100 
001100 o00000 SPBOT: 90 
001102 177570 R: 177570 
001104 177570 Ci SPLAY: 1775706 
001106 900000 CAT: OPEN STARTING ADDRESS OF 
001146 . =CAT+32 CURRENT ADDRESS TABLE 
001146 000000 WCT: OPEN STARTING ADDRES OF 
001206 . 2WCT+32 ;WORD COUNT TABLE 
001206 900000 BAT: OPEN STARTING ADDRESS OF 
001246 =BAT+32 BIT ASSEMBLY TABLE 
001246 000000 VAC: OPEN ; 32. SPARE WORDS « 
001250 175000 CSR: 175000 ADDRESS OF CLOCK STATUS REGISTER 
001252 175002 BAR: 175002 ADDRESS OF BUFFER ACTIVE REGISTER 
001254 i75004 BKCSR: 175004 ; ADDRESS OF BREAK STATUS REGISTER 
001256 175006 BASREG: 175006 ;RODRESS OF BASE REGISTER 
001260 000000 CLKINT: OPEN 7>0M11 VECTOR ADDRESS (RECEIVER) 
001262 000240 CLKLVL: PRTYS PRIORITY LEVEL 
001264 000000 XMTINT: OPEN ;DM11 VECTOR ADDRESS (TRANSMITTER) 
001266 9200246 XMTLVL: PRTYS ; TRANSMITTER PRIORITY LEVEL 
001270 d00000 TTDAT: OPEN ; TUMBLE TABLE DATA 
001272 900000 LINBIT: OPEN >LINE BIT «FOR BAR) 
601274 000000 RCVDAT: OPEN 
001276 9000000 XMTDAT: OPEN 
0013C00 000090 CARMSK: OPEN 
001306 . =VAC+32 ; 
001306 900000 TUMTAB: OPEN STARTING ADDRESS OF 
001506 . =TUMTAB+12S > TUMBLE TABLE 
001506 000006 KSTART: OPEN CURRENT PROGRAM START ADDRESS 
001510 000000 CURTST: OPEN > CONTAINS ADDR OF CURRENT TEST 
001512 000000 RTNNO: OPEN CONTAINS CURRENT TEST &. 
001514 000000 NXTST: QPEN CONTAINS ADDR OF NEXT TEST 
001516 000000 ICTR: OPEN CONTAINS CURRENT !TERAT!ON COUNT 
001520 9000000 SCOPTR: OPEN CONTAINS CURRENT SCOPE POINTEP 
601522 000000 PRGLIM: OPEN 
001524 006604 PRPGTAB. PRGC >PRGO START ADDRESS 
001526 016222 PRG1 *>PRG1 START ADDRESS 
001530 016270 PRGZ >PRG2 START ADDRESS 


| 
a | 
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001532 
001534 
001536 
001540 
001542 
001544 
001546 
001550 
001552 
001554 
001556 
001560 
901562 
001564 
001566 
001570 
001572 
001574 
001576 
001600 
001602 
001604 
001606 
001610 
001612 
001614 
001616 
001620 
001622 
001624 


006626 
016232 
016300 
003630 
001654 
001634 
000000 
oc0000 
002740 
002406 
002640 
002700 
001672 
003142 
017074 
017154 
017230 
177560 
177562 
177564 
177566 
000900 
o000co 
000000 
000000 
175001 
175063 
175005 
175007 
000000 


7: 5? 


RSTART: 


EMTTAB. 


MACY11 30(1046) 


PRGOR 
PRGIR 
PRG2R 
TYP 
ERR 
DTCHK 
0 


0 
SRSETT 
ESCOPE 
SAVEG 
RSTRG 
ERR1 
INIT 
SUSWRP 
KBOINTT 
CNTLUU 
177560 
177562 
177564 
177566 
OPEN 
OPEN 
OPEN 
OPEN 
175001 
175003 
175005 


G: 175007 


OPEN 


D 2 
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+PRGO RESTART ADORESS 


>PRG1 
;PRG2 
;POINTER 
;POINTER 
+ POINTER 


; POINTER 
+; POINTER 
+ POINTER 
> POINTER 
; POINTER 
_ POINTER 


TYPEOUT ROUTINE 
ERROR ROUTINE 
DATA COMPARISON ROUTINE 


RESET ROUTINE 

SCOPE ROUTINE 

SAVE REGISTERS ROUTINE 
RESTORE REGISTERS ROUTINE 
ERROR1 ROUTINE 

INITIALIZE ROUTINE 


SEQ 0016 


— 
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001626 
001630 
001632 


001634 
001642 
001644 
001650 
001652 


001654 
001062 
001670 
001672 
001700 
001706 
001712 
001714 
001722 
001724 
001730 
001732 
001734 
001736 
001742 
001744 
001746 
001750 
001752 
001754 
001756 
001760 
001762 
001770 
001772 
001776 
002000 
002006 
002012 
002014 
002022 
002024 
002030 
002032 
002034 
002036 
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104000 
017444 
000207 


123737 
001402 
004737 
104011 
00c002 


012737 
013737 


000002 


17: 57 


001274 
002040 


000402 
001606 


000240 


‘001606 


002040 
020000 
005662 


005e62 


000400 
177602 


000007 
177566 


G00042 
177052 


001276 


001754 
001610 


001754 
001610 


177160 


177112 


177574 


NO0C4e 


. = 
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+ ROUTINE <“ OUT INCORRECT ROUTINE SELECTED 


INCRTN. TYP 
M1 ; TYPE INCORRECT ROUTINE SELECTED 
RTS 47 EXIT 


DATA COMPARISON ROUTINE. 
DTCHK: CMPB RCVDAT, XMTDAT  ;COMPARE RECEIVED & TRANSMITTED DATA 


BEQ i$ +; CHARS. BRANCH IF SAME. 
JSR 7, CNVDAT ; CONVERT RCVDAT & XMTDAT TO ASCII 
ERROR1 

1$: RTI > EXIT. 


ERROR ROUTINE WHENEVER THE PROGAM DETECTS AN ERROR THE ERROR 
;AND ERROR1 EMT INSTRUCTIONS ENTER HERE. ERROR AT ERR: . AND 
>ERROR1 AT ERR1: 


ERR. MOV #402, ERRB ;MOV BR . +6 TO ERRB 
MOV A , APCRDD >GET PC WHERE ERROR OCCURRED 
BR 
ERR1: MOV #240, ERRB >MOVE NOP TO ERRB 
MOV PCADD, APCADD GET PC WHERE ERROR OCCURRED 
JSR 7, CNVDAT CONVERT RCVDAT & XMIT DAT TO ASCII 
EPRRA: KBDIN >GO CHECK FOR G 
BIT #BiT13,0SWR ERROR PRINTOUT DESIRED 
BNE ERRC >BRANCH IF NO PRINTOUT 
JSR 5, OACNY > CONVERT 
APCADD » DATA 
APC TO 
6 ASCII 
JSR 5, QACNY 7 FOR 
RTNNO : PRINTOUT 
ATNUMB 
3 
TYPE > TYPE ERROR 
ENO > MESSAGE 
ERRB: OPEN ;NOP IF ERROR1, BR . +6 IF ERROR 
TYPE > TYPE ANOTHER MESSAGE 
ERDAT > 1F ERROR 1 
ERRC: BIT #BiTs, dSWR -RING BELL ON ERROR? 
BEQ ERROD >BRANCH IF NO BELL ON EPROP 
TSTB aTPCSR > TELEPRINTER 
BPL __ ; READY? 
MoV #BELL, aTPOBP *RING THE BELL 
TSTB aTPCSR *WAIT FOR THE BELL TO PING 
BPL 7% 
ERPD: CMP 0842, dF46 >ACTI17 
BEQ EPRHLT 
TST SHR ;HALT ON ERROR 
BPL ERREX >GO TO EXIT IF NO HALT ON EPROP 
ERRHLT- HALT 
EPPEX: KBDIN *CHECK FOR 4G 
RTI > RETURN 


SUBROUTINE TO CONVERT RCUDAT AND XMTDAT TO ASCit AND FLOCE 


SEQ 0017 


8 eee em 
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002040 
002044 
002046 
002050 
002052 
002056 
002060 
002062 
002064 


004537 
001276 
017413 
000006 
004537 
001274 
017427 
000006 
000207 
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005662 


005662 
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; IN MESSAGE. 


CNVDAT: 


JSR 5, OACNY 
DAT 


6 
JSR 5, OACNV 
DAT 


SEQ 0018 











MAINDEC-11-OZ20MA-C DNM11 ety TESTS 


DZOMAC P11 


002066 
002072 
002074 
002102 
002106 


002114 
002116 


oo2 4° 


Vet ew 


002130 
002134 
002140 
002142 
002150 
002152 
002154 
002156 
002162 
002164 
002172 
002176 
002204 
002212 
G02216 
002222 
002230 
002236 
002242 
002244 
002250 
002254 
002262 
002264 
002272 
002274 
002276 
002300 
002302 
002304 
002306 
002314 
002322 
002324 
002330 
002336 
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012706 
104013 
012737 
005737 
012737 


000402 
012706 


012737 


004737 
012706 
104012 
023737 
001405 
104000 
017436 
004537 
000000 
043737 
006337 
012737 
012737 
013700 
000170 
012737 
012737 
012706 
104012 
013700 
000170 
022737 
001410 
023737 
001405 
104000 
017454 
000000 
000401 
104015 
013737 
012737 
104012 
004737 
032777 
001003 


7:57 


001100 


002116 
172300 
012424 


001100 
000006 


003172 
001100 


000042 


004124 


001522 
002162 
004 304 
000340 
002162 
001524 
004 304 
000340 
001100 


002162 
001532 
000176 


000042 


001506 
000006 


002554 
061000 


009004 
012036 


000004 


Nooo4e 


002162 


000024 
000026 
000024 
000026 


001102 
N00046 


001514 
000004 


176544 


MACY11 30(1046) 


G 2 
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>THE FIRST PART OF THE START ROUTINE CONTAINS A SHORT 
ROUTINE TO CHECK FOR MEMORY MANAGEMENT. ALTHOUGH THIS 


DIAGNOSTIC DOES NOT USE MEMORY MANAGEMENT, 


ITS PRESENCE 


> INDICATES THAT OVER 28K OF MEMORY MAY BE PRESENT IN WHICH 


CASE TESTS RT66 AND RT67 MAY FAIL. 


IF MEM. MAN. IS 


;PRESENT THESE TESTS ARE SKIPPED BY THE PROGRAM. 


START: MOV #SPBOT. %6 
SUSUR 
MoV #15, ARERRVEC 
TST #172300 
MoV #RT70, ARTOS+2 
BR +6 
15: Mov #SPBOT, %6 
MoV RERPVEC+2, ARERRVEC 
JSR 7? aRONPAR 
RSTATI: MOV #SPBOT. %6 
INITIALIZE 
CMP D842, a846 
BEQ PRGNUM+2 
TYPE 
MO 
JSR 5, RECD 
PRGNUM: 9 
BIC PRGL IM, PRGNUM 
ASL PRGNUN 
Mov #PFAIL, 24 
MoV #PRTY7, 26 
Mov PRGNUN, %0 
JMP aPRGTAB(O) 
RSTAT2: MOV #PFAIL, 24 
Mov #PRTY7, 26 
MOV #SPBOT, %6 
INITIALIZE 
MoV PRGNUN, %0 
JMP ARSTART(O) 
SPSET: CMP #SWREG, SHR 
, BEQ 1$ 
CMP 842, aF4G 
BEQ GETRDY 
TYPE 
M3 
HALT 
BR GETRDY 
1: CNTLU 
GETROY: MoV KSTART. NXTST 
GTRDYX: MOV #6, ARERRVEC 
INITIALIZE 
GTROYA. JSR %7, FORWD 
BIT #B81T9, aSUR 
BNE GTROYC 


*;SEE IF SWITCH-LESS PROCESSOR 
SET UP FOR ERROR TRAP 

> TEST FOR KT11 

+KT11 PRESENT, SET UP TO 
;SKIP RT@6 AND RT67 


> TRAP OCCURRED, NO KT1i1 PRESENT, 
;RESET STACK 
RESET ERROR TRAP 


OUT INTERRUPTS (SET PRIORITY LEVEL 7) 
>GET OM11 PARAMETERS 


»ACTI17 


GET PRGNUM AND PUT IT 
HERE 


: MASK OFF UNUSED BITS 
> SHIFT PROGRAM &# 


>GET PROGRAM & 
>GO START PROGRAM 


>GET PROGRAM &# 
>GO RESTART PROGRAM 


/ACT11? 


> TYPE MESSAGE TO REQUEST SW:TCH 
>REGISTER SETTINGS 
>WAIT FOR OPERATOR TO SET SWITCHES 


;GO GET SWREG SETTINGS 
;ADOR OF 1ST ROUTINE TO NXTST 
RESET ERROR TRAP VECTOP 


ROLL FORWARD TO “NEXT” ROUTINE 
>CHECK SELECT ROUTINE SWITCH 
BRANCH IF SELECT POUTINE SWITCH 15 SET 


SEQ 0019 
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002340 
002344 
002346 
002352 
002356 
002362 
002364 
002370 
002376 
002400 
002404 


002406 
002410 


002004 


002606 


22-NOV-77 


000177 


000740 


000240 
104014 
005077 
005077 
005077 
104012 
013716 
032777 
001402 
000176 
032777 
001012 
023737 
001003 
005737 
001403 
005337 
001360 
032777 
001275 
022737 
001274 
005237 
104000 
017447 
013700 
001662 
000005 
004710 
000240 
006240 
000240 
013705 
012537 
012537 
012537 
012537 
010537 
000207 


Dileve 


177144 


176530 
177600 
001512 


177120 
177777 


001626 


176634 
176626 
176626 


00152 
040000 


000000 
004000 


000042 
001624 
001516 
001000 
177777 


i 


001624 


000042 


001514 
601512 
001514 
o01S16 
001520 
0015190 


001514 


176440 


176424 


000046 


1°6370 
001514 


MACY11 30(1046) 


GTROYC: 


GTRDYD: 


ESCOPE: 


SCOPER: 
SCOPEB: 


1§ 


SCOPED: 


SENDAD: 


F ORWD: 


FORWDA- 


H 2 
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JMP OCURTST 

BR SCOPED 

MOV dSWR, %0 

BIC #177600, «0 

CMPB RTNNO, %0 

BNE GTROYD 

JMP aCURTST 

CMP #-1,NXTST 

BNE GTRDYA 

JSR %7, \NCRTN 

BR GETRDY 
>SCOPE SERVICE ROUTINE 

NOP 

KEDIN 

CLR BAR 

CLR acsR 

CLR aBKCSR 

INITIALIZE 

MOV SCOPTR. (SP) 

BIT #61714. aSWR 

BEQ SCOPEB 

JMP a(SP) 

BIT #B1T11,aSWR 

BNE SCOPED 

CMP 0842, DR46 

BNE 1$ 

TST aePASS 

BEQ SCOPED 

DEC ICTR 

BNE SCOPEA 

BIT #B1T9, dSWR 

BNE GETRDY 

CMP #-1-NXTST 

BNE GTROYX 

INC aePASS 

TYPE 

M2 

MoV ae42. "0 

BEQ GETROY 

RESET 

JSR 7, (0) 

NOP 

NOP 

NOP 

MOV NXTST, %5§ 

MoV (5)+,R TNNO 

MoV (5)+, NXTST 

MOV . (53+, 1CTR 

MoV (5)+, SCOPTR 

MoV %§5.CURTST 

RTS x7 


/EMT TRAP INTERPRETER 


ENTINT: 


MoV 


(6).-16) 


GO RUN CURRENT ROUTINE 

NO GO. MANUAL RTN BYPASSED. 

; (SR) TO RO 

MASK UNDESIRED BITS 

; COMPARE RTNNO TO (RO) 

BRANCH IF ROUTINE NOT FOUND YET. 
GO RUN ROUTINE. 

;NC. CHECK FOR LAST ROUTINE. 
;BRANCH IF NOT LAST ROUTINE 

; YES. INCORRECT ROUTINE SELECTED 
; START OVER. 


>CHECK FOR G 

CLEAR ALL DM11 REGISTERS 
AND SET BASE REGISTER 
AT THE STARTING ADDRESS 


CHECK FOR SCOPE OPTION. 
;BRANCH IF SCOPE SW NOT SET. 
RETURN TO ROUTINE 

; TEST INHIBIT ITERATION SWITCH 


;BRANCH IF INHIBIT ITERATION SW SET 


,ACTI1? 

>BR IF NO 

>1ST PASS? 

-BR IF YES 

>DECREMENT ITERATION COUNT. 
BRANCH IF COUNT NOT 0 

> CHECK SELECT ROUTINE SWITCH 
>BRANCH IF SELECT RTN SW SET 
>LAST TEST? 

:BRANCH IF NOT LAST TEST. 


: TYPE 
> 'PRGEND' 
>CHECK XADP/ACTI1 MONITOR HOOK 


RETURN TO XXDP./ACTI1 MONI TOP 


/ ADDR. OF NEXT ROUTINE TO RS 

>GET NEXT ROUT!NE NUMBER 

GET ADDR OF NEXT “NEXT” POUT INE 
GET |! TERATION COUNT. 

>GET SCOPE LOOP ENTRY POINTER 


;ADDR OF NOW CURRENT TEST TO CURTST 


-EXIT FORWO SUBROUTINE. 


GET P2 OF NEXT INSTRUCTION 


SEQ 0020 
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002610 162716 
002614 011637 
002620 017616 
002624 105066 
002630 006316 
002632 062716 
002636 013607 


002640 012637 
002644 012637 
002650 010446 
002652 010346 
002654 010246 
002656 010146 
002660 010046 
002662 013746 
002666 013746 
002072 000002 
062674 000000 
002676 c00000 


002700 012637 
002704 012637 
062710 012600 
002712 012601 
002714 012602 
002716 012603 
002720 012604 


002722 01374. 
002726 013746 
002732 000002 
002734 000000 
002736 d0vu000 


002740 012700 
002744 005100 
002746 010037 
002752 900005 
002754 000092 


002756 013700 
002762 006100 
002764 006100 
002766 063700 
002772 010037 
002776 006100 
003000 006100 
003002 063700 
003006 9006100 
003010 9006100 
003012 010037 


000002 
001606 
000000 
000001 


001540 


002674 
002676 


002676 
002674 


002734 
0027 76 


002736 
062734 


052525 


003024 


003026 
003024 


003026 


003026 
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SAVE REGS 0 TO 


SAVRG: MoV 
MoV 
MOV 
MOV 
MOV 
mov 
MoV 
MoV 
MOV 
RTi 

SVRPC: OPEN 

SVRPSW: OPEN 


/RESTORE REGS 0 


PSTRG: MOV 
nov 
MoV 
Moy 
MoV 
MOV 
MoV 


MoV 

MoV 

RTI 
RSTPC: OPEN 
RSTPSW: OPEN 


! 
30-NOV-77 


(6), PCADD 
(6), (6) 


#EMTTAB, (6) 
a(6)+, %7 


2 
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;FORM PC OF EMT INSTRUCTION 
;GET PC OF EMT INSTRUCTION 
;GET EMT INSTRUCTION 

;CLEAR MSH OF EMT INSTRUCTION 
SHIFT EMT IDENTIFIER 


>GO TO PROPER ENT 


4 SUBROUTINE. 


(6) +4, SURPC 
(6)+, SURPSW 
%4,-(6) 
%3,-(6) 
%2,-(6) 
%1,-(6) 
%0,-(6) 
SURPSW. -(6) 
SURPC, -‘6) 


SAVE PC AND PSH 


SAVE REGS 0 - 4 
> IN STACK 


,RESTORE PC AND PSW 
EXIT. 


TO 4 SUBROUTINE 


(6)+,RSTPC 
(6)+,RSTPSW 
(6)+,%0 
(6)+,%1 
(6)+,%2 
(6)+,%3 
(6)+. %4 


RSTPSW, -'6) 
PSTPC. -1 6! 


ROUTINE TO ISSUE RESET 


SPSETT: MOV 
COM 
MoV 


RESET 


PTI 


/RANDOM NUMBER GENERATOR 


FNGEN: MOV 


#52525, 49. 
“0 a 
%0, SRSETT+2 


RP1.%0 


» SAVE PC AND PSH 


/PESTORE PEGS 0 - 4 
>FROM STACK. 


>PESTOPE PC AND PSW 


sex IT . 


DATA TO PQ 
“COMPLEMENT (PO) 
/(RO) TO SRSETT+2. 
> ISSUE RESET. (PO! is 
-CISPLAYED Ex!T 


ROUTINE EXITS WITH NUMBEP IN PEGISTER O 


SEQ 0021 


MAINDEC-11-OZDMA-C OM11 LOGIC TESTS 
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002016 
003622 
003024 
003026 


003030 
003032 
003036 
003040 
003044 
003052 
003054 
003056 
003064 
002066 
003072 
003074 
003102 
003106 
003110 
003112 
003120 
003124 
003132 
003136 
003140 


003142 
003150 
003156 
002162 
003166 


003172 
003200 


003202 
003206 
003212 
003216 
003220 
003224 
003226 
003234 
003242 


003250: 


003256 
003264 
003270 
003276 
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613700 
000207 
001233 
007622 


011600 
062716 
011000 
112037 
122737 
001001 
000002 
122737 
001412 
004737 
000762 
113777 
105777 
100375 
000207 
112737 
004737 
112737 
004727 
000740 
000000 


012777 
012737 
011637 
012706 
000176 


023737 
001060 


012790 
010060 
012720 
005720 
022700 
100370 
012737 
012737 
012737 
012737 
012777 
005037 
012777 
012737 


17: 5? 
003024 


000002 


003140 
000100 


000045 
003074 


0073140 
176472 


000015 
003074 
000012 
007074 


001106 
000346 
001100 
001100 
000000 


000042 


000302 
177776 
000003 


600776 


003316 
000340 
177777 
016564 
000105 
177776 
000001 
177777 


003140 


003140 


176500 


003140 
003140 


1760106 
177776 


000046 


000014 
000016 
001146 
001106 
175764 


175754 
001604 


J 2 
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SEQ 0022 
MOV RP1,%0 * 
RTS %? ;EXIT. NUMBER IN RO 
RPI. 1233 
RP 2: 7622 
; SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
MOV a%6, %0 ;GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
ADD #2, a%6 [SET UP EXIT 
MOV ax0, x0 ;RACORESS OF MESSAGE TO RO. 


TYPA: MOVB (0)+, TYPDAT ;GET CHARACTER 
CMPB #100. TYPDAT + CHECK FOR" @" CHARACTER 


BNE TYPC BRANCH IF NOT"O”. 
RTI ; TERMINATOR CHAR. DONE. EXIT 
TYPC: CMPB #45, TYPDAT ;CHECK FOR"%". 
BEQ TYPF BRANCH IF"%" 
JSR %7, TYPD ; TYPE CHAR IN TYPDAT 
; BR TYPA 
TYPO: MOVB TYPOAT. aTPOBR - OUTPUT CHARACTER TO PRINTER 
TSTB aTPCcse ;WAIT FOR DONE FLAG. 
BPL 74 
RTS %7 EXIT 
TYPF: MOVE #15. TYPDAT ; MOVE ye RETURN CODE TO TYPDAT 
JSP %7, TYPO >GO TYPE CHAR 
TYPG. MOvVB #12, TYPDAT :MOVE LF CODE TO TYPDAT 
JSR %7.TYPD >GO TYPE CHAR. 
BR TYFA 
TYPDAT. OPEN 


; SUBROUTINE TO INITIALIZE STACK POINTER AND SET PROCESSOR PRIORITY 


*LEWEL 7 

INIT: MOV #CAT, dBASPEG / INITIALIZE THE BASE REGISTER 
MoV aPRTY7, PSW >SET PRIORITY LEVEL 7 
MOV (SP), SPBOT ‘GET RETURN ADDRESS 
MOV #SPBOT, SP >SET BOTTOM OF THE STACK 
JMP acsP) > RETURN 


» SUBROUTINE TO GET OM11 PARAMETERS 
>WVECTOR ADDRESS 


DMPAR: CMP a842, dR4E >ACT1!? 
BNE 6$ >BR IF NO 
>SIZE FOR INTERRUPT VECTOR IN ALTO MODE 
MoV #2302,P0 >SET UP FLOATING VWECT AREA 
4§ MOV RO. -2(R0) 
MOV #3, (RO)+ 
TST (RQO)+ 
CMP #776-RO0 
BPL 4S 
MoV #55, de14 >;SET BPT VECT 
MOV #340, d#16 >& PSW 
3$ MoV #-1,WCT ;SET TO XMIT 1 CHRP 
May #OUTBUF. CAT 
MOV #BIT6+BITZ+B1TO. dCSR SSE te 
CLR aeP SW tLVL 
MoV #L81T0, dBAR > XMIT 
MOV #-1- COUNT >WAIT 
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003304 
003310 
003312 
003314 
003316 
003322 
003326 
003334 
003340 
003342 
003346 
003350 
003352 
003356 
0023360 
003364 
003366 
003374 
003402 
003404 
003406 
003410 
003412 
003420 
003422 
003436 
003432 
003440 
003446 


603454 
003462 
007464 
003466 
003470 
003474 
003476 
003504 
003506 
003510 
003512 
003514 
003520 
003524 
003530 
003534 
003540 
003544 
003550 
003552 


003554 
003560 
003564 
003570 





005337 
001375 
104001 
000752 
162716 
011637 
012737 
004737 
000415 
004737 
104000 
017310 
004537 
000000 
005737 
001003 


013737 


023737 
001405 
104000 
017352 
004537 
000000 

23727 
101403 
104000 
017444 
000760 
006337 


001372 


012702 
012703 
012701 
012311 


001604 


00G004 
003356 
009016 
004100 


004100 


004124 
003356 


000300 
003356 


003356 
000007 


003356 
006004 
003256 


000042 


004124 
003474 


003474 
002474 
003474 
000004 
601250 
000370 
003474 


000004 
001250 
001614 
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000014 


903356 
NC0300 


000770 


003356 


001260 
003356 
001264 


N00046 


960017 


MACY11 30(1046) 


28: DEC 


6S: JSR 
VECTOR. 0 


VECOK: CMP 
VECOKA: TYPE 


VECOKB. CMP 


UNIT NUMBEP 
OMPARB. CMP 
. BEQ 


UNIT: ia) 


UNTOKA. ASL 


UNTOKB: BIC 
A 


MoV 
UNTOKC: MOV 


K 2 
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COUNT 
2$ 


3$ 
#', (SP) 


(SP), d#VECTOR 


7, OVRLAY 


5, RECD 


VECTOR 
VECOK 
#500. VECTOR 
VECTOR. #300 
VECOKB 


DMPAR 
VECTOR, #770 
VECOKA 

#7, VECTOR 
VECOKA 


VECTOR, CLK INT 


#4, VECTOR 


VECTOR. XMTINT 


ae42. d#46 
UNIT+2 


5. RECO 


UNIT. #17 
UNTOKA 


DMPARB 
UNIT 

UNIT 

UNIT 
#4.%2 
acSP, %1 
#370. (1) 
rigs (1)+ 


UNTOKB 


#4,%2 

eCSR.%2 
#.CS8,%1 
(3+, 04) 


7MO INT oe 

> REPEAT 

+ CALC INT "vect 

+STORE IT 

;RESTORE BPT VECT 

>. 42, HALT IN VECT AREA 


;PUT HALT,. +2 IN VECTOR AREA 

;ASK USER FOR RECEIVER INT. VECTOR 
;OF UNIT UNDER TEST 

;GET VECTOR AND PUT IT 

, HERE 


SET VECTOR = TO 0300 
71S VECTOR HIGHER OR 
*;EQUAL TO 0300 
oT *? 

ASK FOR ANOTHER VECTOR 
> 1S VECTOR = TO OR 


; LESS THAN 770 
>LSB OF VECTOR MUST BE ALL O'S 


GET UN'T AND PUT iT 
HERE 


> UNIT SELECTED MUST BE 
-BETWEEN O & 17 


-FORM ADDRESSES OF 
:PEGISTESS OF UNIT SELE TED 


“FORM 00 BYTE ADDRES*E® 
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603572 
003574 
003576 


003600 
- 003606 
003610 
003612 
003614 
003620 
003622 
003626 
003630 
003636 
GO3644 
303646 
003650 
C03652 
003654 
003662 
003664 
003672 
903676 
003702 
003710 
003712 


063714 
003716 
003720 
003722 


003724 
003730 
003736 
003744 
003752 
003760 
003766 
003774 
004000 
004006 
004014 
004016 
004022 
004030 
004032 
004034 
004040 
004042 
004044 
004050 
064056 


005221 
005302 
001374 


023737 


177740 
177706 
177600 
177400 


005037 
012737 
012737 
012777 
012777 
012777 
012777 
005037 


006037 





000042 


004124 
003620 


000010 
003620 


003626 


000005 
N0362C 
003620 
003714 


004074 
177777 
016564 
004044 
000340 
000001 
000105 
177776 
000044 
noo001 


175226 
000340 
001604 


175200 
004074 
004076 


MaiInNDEC-11-DZ0MA-C DM11 Bie oe TESTS 
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000046 


003620 
600005 


900010 
03620 


017290 


001146 
901106 
175306 
175302 
175264 
175254 


001604 
004074 


177776 


004076 


L Aa 
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eee ee eee Ne ea — 


SEQ 0024 


INC (1)+ 

DEC %2 

BNE UNTOKC 
; CHARACTER LENGTH 
DMPARC: CMP #42, 0846 ;ACT11? 

BEG LENGTH+2 7BR IF YES 

TYPE 

LEVEL 

JSR 5,RECD +GET LENGTH AND PUT IT 
LENGTH. 0 ; HERE 


TST LENGTH 
BNE LENOKA 


MOV #8. , LENGTH 
LENOKA: CMP LENGTH, #5 ; CHARACTER LENGTH SELECTED MUST 
BHIS LENOKC >BE BETWEEN 5-8 
LENOKB: TYPE CARRIAGE RETURN SELECTS 8 
M1 
BR DMPARC 
LENOKC: CMP LENGTH. #8. 
BHI LENOKB 
SUB #5, LENGTH 
ASL LENGTH 
MOV LENGTH, %1 
MOY LENOKD‘( 1). d#CRRMSK > SET CHARACTER LENGTH MASK 
NOP 
RTS 7? ; EXIT PARRMETERS ROUTINE 


THE BELOW TADLE REPRESENTS THE CHARACTER LENGTH MASK FOR 5,6,7,. AND & 
>BITS PER CHARACTER RESPECTIVELY 
LENOKD: 177740 


177700 
177600 
177400 
>CALCULATE MACHINE TIME TO TRANSMIT ONE CHARACTER 
TIMER: CLR TIME1 
MoV #-1,WCT ;SET UP TO TRANSMIT 
MOV #OUTBUF, CAT +1 CHARACTER ON LINE 1 
Moy #TIMEC, MCLKINT ;LOAD RECEIVER INTERRUPT 
MoV RPRTY7.@CLKLVL -;AND PRIORITY 
MOV #LB1TO. dBAR START TRANSMITTING 
MoV #BiT6+BITZ2+B1TO @CSR >SET i€ BIT 
CLR ade P SW >SET PROCESSEP PRIOPITY LEVEL = 0 
TIMER: MoV #44, COUNT 
ADD #1. TIME1 > INCREMENT MACH TIME TO TRANSMIT 
BNE TIMEB 
CLR dcSR 
MOV #PRTY7,. PSW >SET PROCESSER PRIORITY LEVEL = 7° 
ERROR > TRANSMITTER FAILED TO INTERRUPT 
BR TIMER 
TIMEB: DEC COUNT 
BNE = 
BR TIMEA 
TIMEC: CLR acsR 
Mov TIME1. TIMEL4 
ROR TiME14 
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004062 
004064 
004070 
004072 


004074 
004076 


004100 
004104 
004110 
004112 
004114 
004120 
004122 


004124 
004126 
004130 
004136 
004142 
004144 
004150 
004154 
004160 
004164 
004 166 
004172 
004174 
004200 
004204 
004206 
004210 
004212 
004214 
004216 
004222 
004224 
004226 
004232 
004234 
004242 
004246 
004250 
004254 
004260 
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000241 
006037 
022626 
000207 


000000 
000000 


004076 


012702 000302 


177776 


000776 
000207 


010046 
005015 
012737 
105777 
100375 
117700 
142700 
110077 
122700 
001443 
122700 
001415 
142700 
132700 
001031 
006315 
006315 
006315 
150015 
005337 
001422 
000744 
105777 
100375 
012777 
105777 
100327 
005077 
105777 
100375 


000007 
175432 


175426 


000025 
000015 


000060 
000110 


004302 


175346 


000012 
175332 


175326 
175320 


904202 


M 2 
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CLC 

ROR TIME14 
POPSP2 ;RESTORE STACK POINTER 

sEXIT TIME CALCULATION ROUTINE 


TIME1: OPEN ; CONTAINS MACHINE TIME TO XMIT 1 CHAR 
TIME14: OPEN CONTAIN TIME TO XMIT 174 GHAR 
; SUBROUTINE TO PUT HALT,.+2 IN VECTOR AREA (0300-1000) 
OVRLAY: MOV #302, R2 
iS: MoV RZ, -2(R2) 
CLR (R2)+ 
TST (R2)+ 
CMP #776,R2 
BPL 1$ 
RTS ? 


SUBROUTINE TO RECEIVE DATA 

; THIS SUBROUTINE RECEIVES DATA FROM THE KEYBOARD (UP TO S!X OCTAL 
DIGITS AND PLACES THEM INTO THE ADDRESS FOLLOWING THE SUBROUTINE 
CALL (JSR 5,RECD). NO REGISTER CONTENTS ARE DISTURBED 


> SUBROUTINE TO INPUT DATA FROM TTY 


RECO: MOV RO. -(SP) 

1S: CLR (5) CLEAR OLD DATA 
MOV #7,CNT SET CHAR COUNT 

28. TSTB @TKCSR ;WAIT FOR CHAR 
BPL 2$ 


MOVB OTKOBR, RO 
BiCcB #200, R0 
MOVB RC. aTPOBF 


>STPIP OFF PARITY 
>ECHO CHARACTER 


CMPB #25,R0 -IS ITA U 

BEQ 5% ;BRANCH IF YES 
CMPB #15,R0 71S IT A <CR> 
BEQ 6 >BRANCH IF YESS 


> CHECK FOR 0-7 (8) 


BNE 7% > BRANCH IF NOT 
ASL (5) 
ASL (5) 
ASL (5) : SHIFT DATA 
BISB RO, (5) > INSET NEW CHAR 
DEC CNT 
BEQ 73 >ONLY 6 CHAR'S PLEASE 
BR 2$ ;NEXT CHARACTER 
$s TSTB aTPCSR 
BPL 6$ >;WAIT FOR READY 
MoV #12, dTPOBR > TYPE <LF> 
g$ TSTB aTPCSR 
BPL 1% >;WAIT FOR READY 
CLR aTPDBR >LOAD CHAP 
96 TSTB aTPCSR 
BPL 98 


SEG 0025 
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004262 
004264 
004266 
004270 
004272 
004274 
004276 
004 300 
004 302 


004 304 
G04312 


004314 
004316 
CO4 322 
004324 


004330 
004334 
004 340 
004 344 
004 350 
004 352 
004 356 
004 360 
004 362 
004 364 
004 366 
004370 
004376 
004400 
004402 
004406 
004410 
004412 
004416 
004424 
0044 26 
0044 30 
0044 36 
004444 
004452 
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005725 
012600 
000205 
104000 
017444 
104000 
017350 
000712 
ooco00c 


012737 004314 
ooc000 


000005 
012706 001100 
104001 
000137 O02z22 


012537 016412 
004737 006552 
005037 001276 
004537 005754 
177777 

012703 000010 
005002 
005302 
001376 
005303 
001374 
017737 
001401 
104011 
005777 ~~174642 
100401 
104001 
013701 
016137 
001401 
104011 
012737 016564 
016137 001106 
023737 001274 
001401 


174656 


016412 
001146 


000024 


301274 


001274 


001276 
001274 
00127 


MACY11 30(1046) 


CNT: 


TST 
MOV 
RTS 


N 2 
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(R5)+ ADJUST RS 
(SP)+,R0 ;RESTORE RO 
RS 
1$ ; START OVER 


-POWER FAIL ROUTINE 


PFAIL: 


MOV 
HAL T 


#PWRUP, 24 


POWER UP SUBROUTINE 


PWRUP: 


RESET 


>GIVE TELEPRINTER TIME TO START 


+ TYPE POWER FAIL ERROR 
+GO RESTART PROGRAM 


#SPBOT. %6 
O#RSTATZ 


aE ade 
>LINE TEST SUBROUTINE: THIS LINE TEST PROVIDES SEVERAL TESTS ON A DM14 Li 


>THE SUBROUTINE 1S CALLED BY JSR 5. LNTST. 
/LINE BIT AND LINE NUMBER. 
»WAITS UNTIL CHARACTER SHOULD HAVE BEEN TRANSMITTED, 


>THAT BAR BIT CLEARED 


READY SET 
;WORD COUNT WENT TO 0 


XMTTST: 


1$: 


4S: 


5S: 


‘ 
fe 


THIS INSTRUCTION PROVIDES ries 
THE FOLLOWING LINE TESTS ARE PERFORMED: 
THEN TESTS 


>DO NEXT TEST IF ERROR 
+00 NEXT TEST IF ERROR 
;D0 NEXT TEST IF ERROR 


> CURRENT ADDRESS DID NOT INCREMENT ;00 NEXT TEST IF ERROR 


, INTERRUPTS TO CORRECT VECTOR 
>READY BIT CAN BE CLEARED 


MOV 
JSR 


+END OF TEST 


(5)+, d#L INE >GET LINE NUMBER 


7,GTLINB ;GO FORM LINE Bit (FOR BAR) 
XMTDAT 
5, d*#XMIiTO ;GO TO TRANSMIT SUBROUTINE 
; TRANSMIT ONE CHARACTER 
#10,%3 ;WAIT IN 
%2 > THIS 
xz > LOOP 
.72 ;UNTIL THE 
%3 > TRANSMITTER 
> 1S FINISHED 


BAR SHOULD NOW BE CLEAR 
-BRANCH IF IT IS 

;ERROR! BAR BIT FAILED TO CLEAR 
acsRr > TEST READY BIT SHOULD BE SET 
4% >BRANCH IF SET 


2$ 
BAR. PCVDAT 
3$ 


ERROR! READY NOT SET 
@#L INE, %1 ;GET LINE NUMBER 
WCT(1),RCVDAT ;WORD COUNT SHOULD BE 0 
5$ 


ERROR! WORD COUNT NOT EQUAL TO 0 
ROUTBUF,XMTDAT . 
CAT(1),RCVDAT ;CURRENT ADDRESS SHOULD NOT HAVE INCREMENTED 
RCVDAT.XMTDAT ; 
6% 


;DO NEXT TEST IF ERROR (NO INTERRU?T) 


SEQ 0026 


om 
| 
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004454 
004456 
004464 
004472 
004476 
004500 
004506 


004510 
004512 
004520 
004526 
004532 
004534 
004536 
204540 





104011 
012777 
052777 
005037 
000240 
012737 
104001 


022626 
012737 
042777 
005777 
10C001 
104001 
005726 
104606 
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004510 
010000 
177776 


000340 


000340 
110000 
174516 


174600 
174556 


177776 


177776 
174522 


6S: 


8$ 


MACY11 30(1046) 


ERROR1 








8 3 
30-NOV-77 09:34 PAGE 16-8 


ERROR! CURRENT ADDR. DID NOT INCREMENT 
#74, OXMTINT ;LOAD TRANSMITTER 'NTERRUPT VECTOR 
#B1T12, dCSR / ENABLE TRANSMITTER INTERRUPT 
a#PSW SET PROCESSOR PRIORITY =0 


#PRTY7, d#PSW ;LOCK GUT INTERRUPTS 

; TRANSMITTER FAILED TO INTERRUPT OR 
WRONG LOCATION AND HALTED WITH ADDRESS +2 DISPLAYED. 
(6)+, (6)+ RESET STACK PTR 
#PRTY7, ORPSW ;LOCK OUT INTERRUPTS 
#B81T12+B81T15. CSR ;CLEAR XMIT IE & READY BITS 
acSR + TEST THAT READY CLEARED 

| 


8$ >GO TO EXIT 
;ERROR! READY FAILED TO CLEAR 
(6)+ ;RESET STACK PTR 


+ SCOPE 





SEQ 0027 | 


eS 
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004542 
004550 
004554 
004560 
004566 
004572 
004576 
004600 
004606 
004612 
004614 
004622 
004624 
004630 
004632 
004634 
004636 
004640 
004642 
004644 
004652 
004660 
004664 
004666 
004674 
004676 
004700 
004706 
004710 
004716 
004722 
004724 
004726 
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012737 
005037 
005037 
012737 
012537 
004537 
177777 
052777 
005777 
100375 
042777 
005046 
105777 
100404 
005216 
001373 
104001 
000550 
005726 
012777 
052777 
005037 
000240 
012737 
104001 
000531 
012737 
022626 
042777 
105777 
106002 
104001 
000515 


177777 
001306 
001310 
000340 
016412 
005754 


000001 
174436 


100000 
174420 


004700 
000100 
177776 


600340 


000340 


000300 
174326 


Nie564 


177776 


174442 


174426 


174406 
174370 


. 
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SEQ 0028 


*RECEIVER LINE TESTS 

+ THE RECEIVER LINE TEST SUBROUTINE IS ENTERED WITH 
7A JSR 5S, RCVTST INSTRUCTION FOLLOWED BY THE 

*+LINE BIT AND LINE NUMBER OF THE LINE TO BE 


> TESTED 


THE SUBROUTINE PERFORMS THE FOLLOWING 


+ TEST AS SHOWN BELOW. IN THE EVENT OF AN ERROR 
+; THE REMAINING TESTS ARE ABORTED 
; TEST SEQUENCE AND ADDRESS TAG 


;NOTES: 


PCVTST: 


18: 


CHARACTER DONE SETS RTSTA 
CHARACTER DONE CAUSES INTERRUPT RTSTB 
CHARACTER DONE CAN BE CLEARED RTSTC 
TUMBLE TABLE ENTRY IS CORRECT RTSTO 
NO ENTRY IN NEXT TABLE ADDRESS RTSTE 
HARDWARE TABLE POINTER !NCREMENTED RTSTF 
NEXT ENTRY WAS CORRECT RTSTG 


ADORESS THE PROGRAM WILL HALT AND DISPLAY 
THE !NCORRECT VECTOR+2 IN THE ADDRESS LIGHTS. 


MoV #-1, OUTBUF ;LOAD ALL 1'S INTO OUTPUT BUFFER 
CLR TUNTAB >CLEAR THE FIRST 

CLR TUMTAB +2 : TWO TUMBLE TABLE ADDRESSES 

MoV aPRTY7, dRPSW >LOCK OUT INTERRUPTS 

MoV (5)+,L INE GET LINE NUMBER 

JSR 5. a8XMITD > TRANSMIT 1 CHARACTER (O'S) 

od. >ON LINE SPECIFIED BY JSR 

BIS #BiTO, dCSP SET GO BIT 

TST aCSR ;WAIT FOR TRANSMITTER 

BPL _~% >TO TRANSMIT 1 CHAR 

BIC #B1T15, aCSP >CLEAR TRANSMITTER READY FLAG 

CLP - (SP) SET WATCH DOG TIMER 

TST acsRr TEST CHAR. DONE FLAG 

BM! 2$ BRANCH IF SET 

INC (SF) ;WAIT FOR THE FLAG 

BNE 1$ 

ERROR ;ERROP! CHAR. DONE FLAG FAILED TO SET 
BR 8$ >GO TO EXIT 

TST (SP )+ RESTORE STACK PTR 

MOV #3%, CLK INT >LOAD RECEIVER INTERRUPT VEC. ADRS 
BIS #BiTo- adCSR »>SET RECEIVER IE BIT 

CLR aeP SW >ENABLE INTERRUPTS 

NOP 

MoV RPRTY?.PSW >LOCK OUT INTERRUPTS 

ERROR RECEIVER FAILED TO INTERRUPT 

BR 8$ GO TO EXIT 

MOV aPRTY7, a#PSW >LOCK OUT INTERRUPTS 

CMP (6)+, (6)+ 

BIC #BIT7+BIT6, aCSR > CLEAR CHAR. DONE FLAG 

TSTB acsR > TEST THAT CHAR DONE FLAG CLEARED 
BPL 4§ :BRANCH IF CHAR. DONE FLAG CLEARED 
ERROR >ERROR!' CHAR. DONE FAILED TO CLEAR 
BR 8% :GO TO EXIT 


| 
| 
| 
| 
1F THE HARGWARE PROVIDES AN INCORRECT VECTOR 


0 3 
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004730 013737 001306 001274 4S: MOV TUMTAB,RCVDAT ;GET TUMBLE TABLE ENTRY 

004736 042737 020000 001274 BIC #BITI3Z.RCVDAT  ;CLEAR PARITY INDICATOR 

004744 012737 000377 001276 MOV #377, XMTDAT ;LOAD XMTDOAT WITH TRANSMITTED DATA 

004752 043737 001300 001276 BIC CARMSK, XMTOAT ;CLEAR NON TRANSMITTED BITS 

004760 153737 016412 001277 B1SB LINE, XMTOAT+1 ;LOAD XMTDAT WITH PROPER LINE # 

004766 052737 100000 001276 BIS #B1T15.XMTOAT ;SET VALID DATA ENTRY BIT IN XMTDAT 

004774 023737 001274 001276 CMP RCVDAT, ¥NTOAT ; COMPARE TUMBLE TABLE ENTRY (RCVDAT) & 
> CORRECT RESULT (XMTDAT) 


ee ae Re er ee ee ne 


005002 001402 BEQ 5¢ 

005004 104011 ERROR 1 ERROR! INCORRECT TUMBLE TABLE 

005006 000465 BR 8$ ENTRY; GO TO EXIT 

005010 O0£037 001306 5S: CLR TUMTAB 

005014 013737 001310 01274 Mov TUMTAB+2,RCVDAT ; GET NEXT ENTRY 

005022 001404 BEQ 6$ ; BRANCH IF ALL O'S 

005024 005037 00127 CLR XMTDAT 

005030 104011 ERROR 1 ERROR! FALSE ENTRY IN NEXT 

005032 000453 BR 8s , TUMBLE TABLE ADDRESS 

005034 004537 005754 o$ JSR 5. d#XMITD ; TRANSMIT 1 CHARACTER CALL 1'S) 

OOSO4O0 177777 +} ON LINE SPECIFIED BY JSR 

005042 005777 174202 TST a. 58 ;WAIT FOR TRANSMITTER 

005046 100375 BPL -4 READY FLAG 

005050 105777 174174 TSTB acsRr > TEST FOR THE DONE FLAG 

005054 100375 BPL -4 

005056 042777 900200 174164 BIC #BitT7, dCSP >CLEAR CHAR. DONE FLAG 

005064 013737 001306 001274 MOV TUMTAB.RPCVDAT =; TEST THAT HARDWARE TUMBLE 

005072 001404 BEG 7$ > TABLE POINTER !NCREMENTED (+2) 

005074 005037 001276 CLR XMTDAT 

005100 104011 ERROR 1 /ERROR! TUMBLE TABLE POINTER DID 

005102 9000427 BR 8$ >NOT INCREMENT; GO TO EXIT 

005104 013737 001310 001274 7$ MoV TUMTAB+2,RCVDAT ; GET TUMBLE TABLE ENTRY 

005112 042737 020000 001274 Bic #BIT13.RCVDAT  ;CLEAR PARITY INDICATOR 

005120 012737 000377 001276 MoV #377, XMTDAT ;LOAD XMTDAT WITH TRANSMITTED DATA 

005126 043737 001300 001276 Bic CARMSK,XMTORAT ;>CLEAR NON-TRANSMITTED BITS 

005134 153737 016412 001277 BiSB LINE, XMTDAT+1 ;LOAD LINE & INTO XMTDAT 

005142 052737 100000 901276 e's #BIT1S.xXMTOAT ;>SET VALID DATA ENTRY BIT INTO XMTDAT 

005150 023737 001274 001276 CMP RCVDAT.XMTDAT ;COMPARE TUMBLE TABLE ENTRY (RCVDAT) & 
CORRECT RESULT (XMTDAT) 

vu05156 001401 BEG §$ 

onsieQ 104011 ERROR >ERROP! ZNO TUMBLE TABLE ENTRY 

B051e2 104006 $$ SCOPE >WAS INCORRECT; SCOPE 


‘SUBROUTINE TO TEST BREAK OPERATION 
>THE TRANSMITTER WILL TRANSMIT THE BREAK FOR TWO CHARACTER 
> TIMES AND THEN THE FOLLOWING TESTS WILL BE PERFORMED 


A VALID DATA ENTRY WAS MADE BKTSTE 
BREAK BIT SET BKTSTC 
i DATA WAS ALL O'S BKTSTC 

005164 012777 000001 17405e ERKTST: MOV #1, 0CSR *>SET THE GO BIT 
005172 011577 174056 MoV (5), dBKCSR »>SET THE BREAK BIT 
005176 105777 174046 TSTB acsre /WAIT FOR THE RECEIVER 190 
005202 100375 BPL _™ »RECEIVE BREAK 
005204 042777 O00200 1740le Bic #BiT7?, acsP CLEAR FLAG 
005212 105777 174032 TSTB acsr ;WAIT FOR THE RECEIVER TO 


005216 100375 BPL -4 >TO RECEIVE BREAF 
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DZOMAC P11 22-NOV-77 17:57 SEQ 0030 
005220 042777 000200 174022 BIC #B1T7,dCSR ; CLEAR FLAG 
005226 005077 174022 CLR OBKCSR CLEAR BREAK BIT 
005232 005737 001306 1$: TST TUMTAB ; TEST FOR VALID DATA ENTRY 
005236 100402 BM! 2$ 
005240 104001 ERROR ERROR! NO VALID DATA ENTRY 
005242 000421 BR 4§ GO TO EXIT 
005244 032737 O40000 001306 2%: BIT #B1T14,TUMTAB ; TEST THAT BREAK BIT IS SET 
005252 001002 BNE 3$ + 1N TUMBLE TABLE 
005254 104001 ERROR ERROR! BREAK BIT FAILED TO SET 
005256 000413 BR 4§ >GO TO EXIT 
005260 105737 001306 33: TSTS TUMTAB ; TEST THAT DATA IS ALi O'S 
005264 001410 BEQ 4§ 
005266 O0&037 001274 CLR RCVDAT 
005272 113737 001306 001274 MOVB TUMTAB,RCVDAT ;GET RECEIVED DATA 
605300 005037 001276 CLR XMTDAT 
005304 104011 ERROR1 ERROR! DATA WAS NOT ALL O'S 
305306 104006 4S; SCOPE - SCOPE 


; SUBROUTINE TO TRANSMIT & RECEIVE ON ALL LINES THE DELAY BETWEEN 
; TRANSMITTING ON A LINE IS SUPPLIED BY THE CALLING JSR INSTRUCTION 
;NOTE NO DATA CHECKING IS PERFORMED BY THIS TEST 


005310 012537 001604 DLYXMT: MOV (5)+, d# COUNT GET CHARACTER DELAY COUNT 
005314 005037 O01276 CLR XMTDAT 

005320 004537 005732 JSR 5, BMOVE >LOAD OUTPUT BUFFER WITH DATA 
005324 017657 MSG1 >TO BE TRANSMITTED 

005326 016564 OUTBU 

005330 000100 64 

005332 012737 900001 O0!c72 MOV #LBITO. g#LiNBIT 

005340 005037 016412 CLR @*L INE 

005344 012777 0900001 7367o 1%: MOV #B1TO. dCSP SET THE GO BIT 

005352 004537 005754 zs JSR 5. d#XMITO TRANSMIT 64. CHAP 

005356 177700 -64. >ON A LINE 

005360 013737 OO4074 005374 MoV aeT Met. 4$ 

005366 013704 001604 Mov Oe COUNT. %4 »>GET CHARACTER DELAY COUNT 
005372 104400 3$: CELAY 

005374 000000 4S: 0 

005376 005304 DEC “Mu 

005400 001374 BNE 3$ 

005402 062737 OGO00Z2 16412 ADD #2,L 'NE >FORM NEXT LINE NUMBEP 

005410 006337 001272 ASL LINBIT >SHIFT LINE BIT 

005414 103356 BCC 23 >BRANCH IF ALL LINES NOT GONE 
005416 0127954 000100 MoV #64. “4 

005422 013737 004074 005432 MoV TIME 1, 6% 

005430 104400 5S: DELAY 

005432 9000000 6S: 0 

005434 005304 DEC na 

005436 001374 BNE 5$ 

005440 017737 173006 001274 MOV BAR, RCVCAT >GET & TEST BAR DATA 

005446 001402 BEQ 7$ EXIT IF DONE 

005450 104011 ERROR *ERROR! BAR SHOULD'WE BEEN CLEAP 
005452 000413 BR 8% 

005454 022777 100201 173506 7%: CMP #100201. odCSP > TEST THAT ONLY DONE.GO.& READY BITS APE SET 
005462 001407 BEQ $ 

005464 012737 100201 901276 MoV #100201, XMTDAT 


005472 017737 173682 001274 MoV acSP, RCVDAT /GET CSR CONTENTS 


—s 
| 
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005500 104011 ERROR ; INCORRECT CSR COMTENTS 
005502 005726 8S: POPSP ;RESET THE STACK 
005504 104006 SCOPE ; SCOPE 

} 
; SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 
NOS506 611637 005556 DLY: MOV (6), 3$ ;GET DELAY COUNT ADDRESS. 
005512 062716 000002 ADD #2, (6) SET UP EXIT ADDRESS | 
005516 017737 000034 005556 Mov 23%, 38 ;GET DELAY COUNT | 
005524 001413 BEQ 2$ ;EXIT IF NO DELAY 
005526 012737 000050 005560 15: MOV #50, 4S 
005534 162737 000001 005556 SUB #1,3$ 
005542 001404 BEQ 25 
005544 O0&337 005560 DEC 4S 
005550 001375 BNE -4 
006552 000765 ae 1§ 
005554 000002 25: RTI SEXIT 
605556 000000 35: OPEN ; CONTAINS DELAY COUNT 
905560 000000 4s. OPEN ; CONTAINS DELAY ROUTINE CONSTANT 
; SUBROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
005562 012737 177777 005604 INBIN: MoV #-1/ RIND ;SET ALL VARIABLES 
005570 004537 005732 JSP ~5, BMOVE >TO MINUS 1 
005574 005604 RIND 
005576 005605 RIND+1 
005600 000005 a 
005602 000207 RTS %7 EXIT 
005604 900000 PIND: OPEN 
005606 000000 PTO OPEN 
005610 000000 PTI. OPEN 
-SPECIAL BINARY COUNT PATTERN SUBROUTINE. EXITS WITH BIN CHAP IN PI 
005612 013737 005606 005610 GTBIN Mov TO. PTI “PREVIOUS BIN CHAP TO FTI 
005620 005137 005610 CoM PT! 
005624 005137 005604 COM 21ND 
005630 001002 BNE * 
005632 004237 005610 INC PTI 
005636 042737 177400 005610 BIC #177400.PT1 /MASK TO 8 BITS 
005644 013737 005610 9005606 Mou PTL. PTO /SAVE BIN CHAP IN PTO 
005652 013701 005610 MOV PT1.%1 /BIN CHAR TO Ft 
005656 000240 NOP 
005660 900207 RTS %? EMIT. 
-OCTAL TO ASCII CONVERT POUTINE 
005662 104007 QRCNY:  SAVREG ,SAVE REGISTERS ON THE STAC 
005664 013504 MOV aise. “4 -GET OCTAL VALUE 
005666 012501 MoV (53+, %1 /GET DESTINATION ADDR 
605670 012502 Mov (5)4,%2 -GET CONVERT COUNT 
005672 060201 ADD %2,%1 /DEVELOP ADDR TO STORE 1ST CHAP 
005674 010403 OACNVA MOU “4, %3 
005676 042703 177770 BIC #177770. %3 ; ISOLATE LEAST SIGNIFICANT DIGIT. 
005702 062703 000060 ADD #60, %3 /CONVERT DIGIT TO ASCII 
005706 110341 MOVB = -%3,-(1) /STORE ASC!! CHARACTER 
005710 042704 900007 BIC 87,44 
005714 006904 ROR ma 
005716 006004 ROP ~M 
005720 o06co4 POR “4 
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005722 
905724 
005726 
005730 


005732 
005734 


006014 
006016 


006020 
006024 
006032 
006036 
006042 
006044 
006050 
006052 
006056 
006062 
006066 
006070 
006072 
006074 
006100 
006106 
006112 
006114 
006122 
006124 
006130 
006132 
006134 
006142 
006144 


005302 
001363 
104010 
009205 


104007 


n00205 


010046 
013700 
004737 
012777 
012760 
012560 
053777 
012600 
000205 


012537 
012737 
012702 
004737 
110122 
005337 
091372 
012701 
005037 
004537 
001306 
001397 
000177 
012702 
052777 
004537 
177634 


104001 


O1es%icz 
006552 
001106 
016504 
N0114¢e 
001272 


016412 
000144 
016564 
005612 


001604 
001306 


001306 
005732 


016730 
00500! 
005754 
160000 


173120 


©0000 


N01106 


175256 


001604 


17 3INZ 


173126 


17310 
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DEC %2 ;DONE ALL DIGITS? 
BNE OACNVA ;BRANCH IF NOT DONE. 
RSTREG ;RESTORE THE REGISTERS 
RTS %5 ; DONE. EXIT. 

an ail > TO MOVE A VARIABLE NUMBER OF BYTES. 

BMOVE: SAVREG ; SAVE REGS. 
MoV (5)+,%1 :GET"FROM" ADDRESS 
MoV (5)+,%2 ;GET"TO"ADDRESS 
MoV (5)+,%3 GET COUNT 

i$ MOVs (1)4,(2)+ ;MOVE BYTE 
DEC %3 ;DECREMENT COUNT 
BNE 1$ ; BRANCH IF NOT DONE 
RSTREG > RESTORE REGS. 
RTS %5 > DONE EXIT 

> SUBRCUTINE TO TRANSMIT DATA. SUBROUTINE CALLED BY 

JSP 5, XMITO 

<MITD MOV ~0.-(SP) ; SAVE RO ON THE STACK 
MOV MeL INE. %0 »GET LINE 
JSR 7 d*GTLINB ; FORM LINE BIT (FOR BAR) 
MoV #CAT, dBASREG ; INITIALIZE BASE REGISTER 
MoV SOUTBUF.CAT(O) ;LOAD FIRST CHAR ADDRESS IN CAT 
MoV (5)4+,WcT(0) ;GET. WORD COUNT 
8's @*LiNBit. dBAR :LOAD LINE POSITION INTO BAR 
MOV (SP)+, %0 ;RESTORE PO 
PTS 5 [EXIT 


ROUTINE TO TEST A LINE. 
.THE LINE TO BE TESTED 1S PROVIDED BY THE JSP CALL TO THE ROUTINE 


-100 CHARACTERS ARE TRANSMITTED. RECEIVED AND CHECKED BY THIS ROUTINE. 


DATTST. MOV (5)+, d#L INE ;GET LINE NUMBER 
ORTIAA MOV #100 . COUNT >GET CHARACTER COUNT 
MoV SOUTBUF. %2 ;GET ADDRESS OF OUTPUT BUFFEP 
1$ JSR 7, 0#GTBIN >GET DATA 
MOWB 21, (2% -LOAD OUTPUT BUFFER WITH DATA 
DEC COUNT >GQT ALL DATA? 
BNE 1$ 
May # TUMTREB. © 1 ,LOAD TUNBLE TABLE POINTER 
CLR TUMTAB 
JSR 5, BMOVE - CLEAR 
TUMTAB >: TUMBLE 
TUMTAB +1 ; TABLE 
177 »64 WORDS 
MoV #INBUF, %2 >SETUP INPUT BUFFER POINTER 
BIS #BiTd. dcSRr ;SET THE GO BIT 
JSP 5, a8exXnitTo : TRANSMIT 
-100. ;100. CHARACTERS 
2s BIT wa tbekens¥eneniti acsR: TEST IF READY OR ANY ESROP 
BNE 3$ ;FLAGS ARE SET 
TSTB acsRr WAIT FOR THE RECE! VER 
BPL 2$ >TO RECEIVE A CHARACTER 
BR 59 
3$ BIT @BiTiIG+BIT12. aCSP. TEST FOR EPROP FLAGS 
BEG 4 -BRANCH NO ERPOP 
EPROP 


| 
SEQ 0032 | 
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006146 
006152 
006160 
006164 
006166 
006174 
006176 
006200 
006202 


006266 
006270 
006274 
006276 
006302 
006304 
006306 
006312 
006316 
006320 
006322 
006324 
006326 
006332 
006336 
006342 
006346 
006352 
006356 
006362 
006364 
006370 
006376 
006402 


006404 
006410 
096412 





000137 
042777 
105777 
100375 
042777 
005711 
100401 
104001 
111122 


012705 
000261 
032711 
001001 
000241 
004537 


011137 


104011 


000477 
020127 
001002 
012701 
005721 
010046 
013700 
005760 
001402 
012600 
030674 
012600 
012701 
012702 
012705 
004537 
005037 
005037 
020127 
001441 
112137 
043737 
111237 
104002 


012703 
005000 
106037 
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006466 
100000 
173064 


000200 


00c001 
020000 


O0e4 72 


001270 


001504 
001704 


O1o0412 
001146 


016564 
016730 
000014 
006472 
001274 
001276 
016727 


001276 


601300 
001274 


900010 
NO107% 
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JMP 15% 

4S: BIC #81715, dCSR 
TSTB acsrR 
BPL 74 

cs BIC #B81T7, dCSR 
TST (1) 
BMI +4 
ERROR 


MOVB (1),¢2)¢ 


2 
30-NOV-77 09. 
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+GO EXIT 
>CLEAR TRANSMITTER READY FLAG 
+ TEST FOR CHARACTER READY 


> CLEAR CHAR DONE BIT 
; TEST FOR VALID ENTRY 


;REPORT INVALID ENTRY 
;MOVE CHAR FROM TUM. TAB. TO INPUT BUFFEP 


ROUTINE TO ome RECEIVED PARITY BIT IN PARITY BiT BUFFER 
MOV 


, 4 


+GET ROTATE COUNT 

;SET THE CARRY BIT 

; TEST RECEIVED PARITY BIT 

>BRANCH IF RECEIVED PARITY WAS O00 

CLEAR CARRY BIT 

-ROTATE RECEIVED PARITY INTO PARITY BUFFER 


FOR THE CORRECT LINE 
-GET TABLE ENTRY 
*CLEAR ALL BUT LINE NUMBER 
> COMPARE LINE NUMBERS 


/GET CORRECT LINE # (X2) 

>GET LINE # (X2) THAT FALSE DATA CAME IN ON 
ERROR! DATA CAME IN ON A LINE THAT 
>PROGRAM WAS NOT TRANSMITTING On 

EXIT TEST 

1S POINTER AT THE END 

/OF THE TABLE 


> INCREMENT POINTER 

‘SAVE REGISTER ZERO 

»>FETCH LINE NUMBER 

»-HAS THE LAST CHARACTER BEEN TRANSMITTED 
>LAST CHARACTER HAS BEEN TRANSMITTED 
/RESTORE REGISTER ZERO 

>GO WAIT FOR NEXT CHARACTER 

RESTORE REGISTER ZERO 


“POTATE PAPITY BUFFER 
/12. PLACES PIGHT 


>MAVE ALL CHARS. 


/GET TRANSM'TTED CHARACTER 
-CLEAR NON-TRANSMITTED BITS 
*GET RECEIVED CHARACTER 
»COMPARE TRANS & PCVD. CHAPS 


BEEN COMPAPEL 


-POUTINE TO COMPUTE AND CHECK PARITY ON RECEIVED DATA 


SEC 
BiT #B1T13, 61) 
BNE 6$ 
CLE 
6$ JSP 5, RORPARBUF 
:POUTINE TO TEST THAT ENTRY IS 
MoV ares ae TTDAT 
BIC #1600777. TTDAT 
CMPB LINE, TTDAT+1 
BEG 7$ 
mov LINE. XMTDAT 
MOV TTGAT. RCVDAT 
ERROR} 
BF 15$ 
$ CMP “1. 8 TUMTAB+176 
BNE a) 
MOV #TUMTAB-2. %1 
$$ TST (1)+ 
MOU *0.-16) 
MOW LINE. “0 
TST WCT(O) 
BEA _ +6 
MOY (6)+ %0 
BP 28 
MOV (6'+,%0 
98 MoV ROUTBUF. “<1 
MoV # INBUF, %2 
MoV #12.-%5 
JSP 5. RORPARBLUF 
10% CLP RCVDAT 
CLP XMTDAT 
CMP %1, SOUTBUF +99 
BEG 15$ 
MOVE (1)+, XMTOAT 
BIC CARMSK, XMTDAT 
MOVB (2),RCVDRT 
DATCHK 
11%: MoV #8. .%3 
CLP %0 
123 POPE RCVORT 


-GET BIT COUNTER 
>CLEAR COMPUTED PARITY Inticarae 
LOOK AT RECEIVED BIT 
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006416 103001 BCC 138 ;BRANCH IF AO 
006420 005100 COM %0 ; COMPLEMENT RO IF A 1 
006422 005303 135. DEC x3 ;DECREMENT BIT COUNTER 
006424 001372 BNE 12$ ;LOOK AT NEXT BIT IF NOT DONE 
006426 000240 NOP ;1F COMPUTED PARITY WAS ODD RO WILL 
;CONTAIN ALL 1°S, IF EVEN RO = 0 
006430 112237 001274 Move (2)+, RCVDAT ;GET RECEIVED CHARACTER 
006434 012705 000C01 MoV #1,%5 ;RCTATE PARITY BUFFER 1 PLACE 
006440 004537 006472 JSR 5, RORPARBUF ;RIGHT LEAVING RECEIVED PARITY BIT IN CARRY 
006444 103004 BCC 14§ ; BRANCH IF RECEIVED PARITY WAS EVEN 
006446 005700 TST z0 ; TEST FOR COMPUTED ODD PARITY 
006450 001336 BNE 10$ ;BRANCH IF COMPUTED & RECEIVED WAS ODD 
006452 104001 ERROR ; ERROR! COMPUTED =EVEN. RECEIVED = ODD 
006454 000734 BR 10% ; CONTINUE TEST 
006456 005700 14S. TST ~0 > TEST FOR EVEN COMPUTED PARITY 
006460 0017232 BEQ 10% ; BRANCH IF COMPUTED PARITY WAS EVEN 
C0e462 104001 ERROR -ERROR!' COMPUTED =ODD0, RECEIVED = EVEN 
O9n464 000730 BR 1¢$ > CONTINUE TEST 
Ofe4ee 005726 15%: POPSP ;REPOSITION STACK POINTEP 
OCe470 104006 SCOPE , SCOPE 
ROUTINE TO ROTATE PARITY SUFFER 
900472 006037 006534 POPPARBUF: ROR PARC 
006476 006037 O0657e POR PAS] 
006502 006037 006540 POR PAR Z 
006506 006037 006542 POP PAR? 
006512 006037 006544 POP PARY 
006516 006037 O0654%e POR PARS 
006522 006037 006550 FOP PAPE 
006526 005316 DEC (SP) :DECREMENT POTATE COUNT 
006530 001360 BNE FORPOPEUF 
006532 000205 PTS 5 ‘ 
PAP ITY BUFFER 
006534 000000 PAPO. OPEN 
006536 000000 PAP 1 OPEN 
006540 o0v000 PAR 2: OPEN 
006542 900000 PAR OPEN 
006544 000000 PARY OPEN 
odes46 O000000 PARS OPEN 
o0e650 900000 PAPO: OPEN 
SUBROUTINE TO FORM LINE BIT POSITION WITH THE LINE & IN LINE 
o0e552 010046 GTLINB. MoV “~0.-«SP) >SAVE RO ON THE STACt 
006554 005037 O01272 cLe aeL'INBIT »CLEAR LINE BIT 
“006560 O13700 Oles%1c MOV MeL INE. “0 -GET LINE 
006564 000261 SEC -SET CARRY 
006566 006137 CO1272 1s POL LINBIT :SHIFT LINE BIT 
006572 162700 9o00002 SUB #2. %0 : /-SUBTRACT 2 FROM LINE NUMBER 
006576 100373 BPL 1§ >BRANCH IF GPEATER THAN © 
006600 012600 MOY (SP 14.20 -PESTORE PRO 
006602 


000207 PTS ? “EXIT SUBROUTINE 


[eee 
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o7onac 


-_- 


Pil 


006604 
000606 
006610 
006616 
006622 
006626 
0066 34 
006640 


006644 
006646 
000650 
006652 


Ome S4 
OCr662 
O0ee66 
000674 
006676 


006702 
006704 


006706 


006710- 


006712 
006714 


006716 
006724 
006732 
006734 
006736 
006746 
006746 
006752 
006754 
006756 


006760 
006762 
006764 
006766 


006770 
006776 


104000 
017527 
012737 
005037 
000137 
012737 
005037 
000137 


000000 
006706 
000144 
006654 
000000 


N12737 
005777 
012737 
104906 
1ol71le 


10400! 
000002 


00000! 
006760 
000144 
006716 
000061 


012777 
022777 
001402 
104001 
000407 
042777 
005777 
001491 
104001 
104006 


000002 
007032 
000144 
006770 
000002 


012777 
022777 | 


006644 
001512 
002254 
006644 
001512 
002306 


O06e 76 
172262 
000006 


N0o004 


000001 
900001 


000001 
172276 


000002 
000002 


001506 


001506 


00004 


000004 


172324 
172316 


172302 


172252 
172244 
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PRGO TYPE 
PRGOM 
MOV #RTO, KSTART +GET ADORESS OF FIRST TEST 
CLR RTNNO CLEAR ROUTINE # 
JMP SRSET 
PRGOR: MOV #RTO. KSTART +GET ADORESS OF FIRST TEST 


CLR RTNNO ; CLEAR ROUTINE NUMBER 
JMP GE TROY ;GO AND START PROGRAM 
OS 0550555000505000005055050000000005900500050500000000058 2999999998009 9 | 
RTO 0 ;ROUTINE # O x 
RT1 ;ADDR OF NEXT ROUTINE. x 
100 ; 1TERATION COUNT y 
RTOR ; SCOPE ENTRY POINT. x 
X= X41 


2 55005522555505052003525529553555992532555955929533525 9059990522235 02> 3 | 


> TEST ABILITY TO REFERENCE CSP WITHOUT TRAPPING 
PTOR MOV #19, QRERRVEC > SET UP ERROR TRAP 


TST acsR »REFERENCE CSR 
MOV BERRVEC+2, JR ERRVEC ;RESET TIME OUT TRAP 
SCOPE 

1$ SUB #4, (6) ;RESTORE PC TO WHERE THE ILLEGAL 

; REFERENCE OCCURED 
ERROR ;ERROR' ILLEGAL REFERENCE OCCURED 
RTI ;LOOP ILLEGAL REFERENCE INSTRUCTION 
eee ee SOS 05055052 0050058 00000000009 9500000908950 0999099095979 2 022922 28 8 | 

PT) 1 ;ROUTINE & 1 x 
RT2 ;ADOR OF NEXT ROUTINE. x 
100. ; ITERATION COUNT x 
RTIA ; SCOPE ENTRY POINT. x 
X=X+] 


mo $2905006555955000050000295852205000 0003733332 25355 525550529 2222309292 3 2 | 
>; TEST THAT CSR BITO CAN BE SET AND CLEARED 


RTIA: MOV #BiTO. aCSP >SET BITO. 
CMP SB ITC. dCSP > TEST THAT BITO IS SET 
BEQ 1$ BRANCH IF SET 
ERROR >CSR BITG FAILED TO SET 
BR 2$ :OR AN ADDITIONAL BIT ALSO SET 
1S: BIC #B!TO, aCSR CLEAR BITO 
TST ocsr > TEST THAT BITO IS CLEAR 
BEQ 2$ \ 
ERROR CSR BITO FAILED TO CLEAR 
2S: SCOPE 
‘AERSAANARAE AREAS EAA ASAE EAE EAS SERA RA SAA A RATA ARTES ESAS ESA A SAREE 
RTD 2 >ROUTINE # 2 * 
RT3 ADDR OF NEXT ROUTINE 1 
100. ; ITERATION COUNT . x 
RT2A >SCOPE ENTRY POINT. x 


X=X+1 
OO 0000000000 0 00 at 


> TEST THAT CSR BIT1 CAN BE SET AND CLEARED 
PTZ: MO aBiT1,dCSR >SET BIT1 
CMP eBIT1, adCSR >TEST THAT BIT! !& SET 


SEQ 0035 | 
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007004 
007006 
007010 
007012 
007020 
007024 
007026 
007030 


007032 
007034 


007104 
007106 
107110 
007112 


007114 
007122 
u07130 
007132 
007134 
007136 
007144 
007150 
007152 
007154 


007156 
007160 
007162 
007164 


O07 1b6 


001402 


104001 
104006 


000003 
007104 
000144 


007042 - 


o00cc3 


012777 


104006 


000004 
007156 
000144 
007114 
o00000% 


012777 
022777 
001402 
104001 
000407 
042777 
005777 
001401 
104001 
104006 


000005 
007230 
000144 
007166 
000005 


er) 
O1277% 


000002 
172224 


000004 
oooco4 


000004 
172182 


000020 
000020 


000020 
172100 


009040 


172230 


172200 


172172 


172156 


172126 
172120 


172104 


172054 
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BEQ 1$ BRANCH IF SET 
ERROR CSR BIT1 FAILED TO SET 
BR 2$ OR AN ADDITIONAL BIT ALSO SET 
18: BIC #B1T1,90CSR CLEAR BIT! 
TST acsr +; TEST THAT BIT1 IS CLEAR 
BEQ 2$ 
as ERROR CSR BIT1 FAILED TO CLEAR 
re 2$225% 955995999999 995 99595505099 099 920025220299 2902359980258 > 00> 2009 22 8 
RT3: 3 ;ROUTINE # 3 x 
RTY ;ADDR OF NEXT ROUTINE. x 
100. + ITERATION COUNT x 
RT3A SCOPE ENTRY POINT. x 


X=X+1 
OOo oooogo ogo gIOIOISIOIIOIOIIOIOIIOIOIOOIOIDIDIOIOIOIO OOOO IOI UII III 
; TEST THAT CSR BIT2 CAN BE SET AND CLEARED 


RT3A: MOV #B1T2,dCSR ,SET BIT2 
CMP #8 !T2,adCSR ; TEST THAT BIT2 IS SET 
BEQ 1$ ;BRANCH IF SET 
ERROR ;CSR BITZ FAILED TO SET 
BR 25 ;OR AN ADDITIONAL BIT ALSO SET 

15: BIC #8112, aCSP ;CLEAR BIT2 
TST acsre ; TEST THAT BITZ IS CLEAR 
BEQ 2$ 
rare ;CSR BITZ2 FAILED TO CLEAR 

2 OPE 

; SSESERAREAEESEOANSSSSSOSEESSSSSSEAEAEASSSIRASONSSSSSSASSSESISAINNSSSIITS 

PTY. 4 ‘ >ROUTINE # x 
RTS , ‘ : ADDR OF NEXT POUT INE. x 
100. > ITERATION COUNT x 
RT4YA ; SCOPE ENTRY POINT. x 
X=X+1 


$20005050000000000050000000992552092252922'22552255202025 9 0292020999209! 
; TEST THAT CSR BIT4Y CAN BE SET AND CLEARED 


RTYA: MOV #BiT4, dCSP *SET BIT4 
CMP #B!T4. OCSR > TEST THAT BIT4Y IS SET 
BEG 1$ BRANCH iF SET 
ERROR >CSR BITY FAILED TO SET 
BR 2$ 7OR AN ADDITIONAL BIT ALSO SET 
1$ Bic #BiT4, aCSP >CLEAR BIT4 
TST acsP > TEST THAT BIT4Y IS CLEAR 
BEQ 2$ 
ERROR >CSR BIT4 FAILED TO CLEAP 
2S: SCOPE 
SOQ oO OOOO IOI OID III 
PTS: 5 ;ROUTINE # 5 * 
RT6 >ADDR OF NEXT ROUTINE. * 
100. > ITERATION COUNT x 
RTSA SCOPE ENTRY POINT. k 


X=X+1 
meee et 000500000000000000000000000000552202022525255352255555252535 223223) 


> TEST THAT CSR BITS CAN . SET RND CLEARED 
PTSA: MOV eBITS,aCS :SET BITS. 


SEQ 0036 
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ETT T TTT TTT tetas tite tet t test ttt et tite tect tees e este eer esese eee. 
.TEST THAT CSR BIiT13 CAN BE SET ANC CLEARED 


OZDNAC. Pil 22-NOV-77 17:57 SEQ 0037 
007174 022777 OOOO4O 172046 CMP #8175, dCSR ; TEST THAT BITS IS SET 
007202 001402 BEQ 1% + BRANCH IF SET 
007204 104001 ERROR ;CSR BITS FAILED TO SET 
007206 000407 BR 23 ;OR AN ADDITIONAL BIT ALSO SET 
007210 042777 OOO04O 172032 1%: Bic #8175, CSR CLEAR BITS 
007216 005777 172026 TST acsR + TEST THAT BITS IS CLEAR 
007222 001401 BEQ 2$ 
007224 104001 ERROR CER BITS FAILED TO CLEAR 
007226 104006 2$: SCOPE 
; MEKKAAAAAAA EAE AA SEAS ERASE AERA ERAS SATA AAAS A SAE A RA AAA AA AAAS ASE TES 
007230 o00006 RTE: 6 UTINE # 6 x 
007232 007302 RT? ; ROOR OF NEXT ROUTINE. 
007234 000144 100. ; ITERATION COUNT 
007226 007240 RT6A SCOPE ENTRY POINT. 
000006 =X+1 | 
re $20902599055095520955995530533555 0299299522555 2553222 3250592329225 9 022) 
; TEST THAT CSR B!T6 CAN BE SET AND CLEARED | 
007240 012777 000100 172002 RToA: MOV #B1T6, CSR +SET BIT6 
007246 02277 000100 171774 CMP #BiTo. dCSR TEST THAT BITé IS SET 
007254 001402 BEQ 1$ BRANCH IF SET 
007256 1049001 ERPOR >CSR BIT6 FAILED TO SET 
007260 000407 BR 2$ >OR AN ADDITIONAL BIT ALSO SET 
007262 042777 O00100 171760 18 Bic #B Te, aCSP /CLEAR BIT6 
007270 905777 171764 TST @csP > TEST THAT BIT6 IS CLEAR 
007274 001401 BEQ 28 
007276 104001 ERROR CSR BIT FAILED TO CLEAR 
007300 104006 2: SCOPE : 
; SERSESESSSSSSSRSRASSSES SASSER SSSTTTSS SSE SERSSS SSS SATE S SS ESTEE SS SE TESTS 
007302 00007 RT? ? ROUTINE & 7 x 
007204 007354 RT10 ;ADOR OF NEXT ROUTINE. + 
007306 000144 100. ; ITERATION COUNT x | 
007310 007312 RT7A “SCOPE ENTRY POINT. x 
ooco0?7 =X+1 | 
eS 0s00500009000000055550522202222522909)5052002503353525257222252 9253 | 
/ TEST THAT CSR BIT12 CAN BE SET AND CLEARED 
007312 012777 010000 171730 RT7A MOV #BiT12.aCSP >SET 61712. 
007320 022777 010000 171722 CMP eB 1T12, a Sr > TEST THAT BiTi2 IS SET 
‘007326 901402 BEQ 1$ ;BRANCH IF SET 
007330 104001 ERROR -CSR BITIZ2 FAILEC TO SET 
007332 900407 BR c$ ;OR AN ADDITIONAL BIT ALSO SET 
007334 042777 010000 :71706 18 BIC #BiTi2. aCSF ;CLEAP BIT12 
007342 005777 171702 TST ac SF > TEST THAT BIT12 IS CLEAP 
007346 001401 BEQ 2$ 
007350 104001 ERROR >CSR BiTi2 FRILED TO CLEAP 
007352 104006 2s SCOPE 
1, eee panenaeatentobieneaeainmae ~~" ra * em nemmamnnmamentett 
007354 960010 RT10. 10 *ROUTINE & 10 
007356 007426 ‘ RT11 ADDR OF NEXT ROUTINE. : 
007360 000144 109. > ITERATION COUNT t 
007362 007364 RT10R SCOPE ENTRY POINT. x 
000010 X=X+1 
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DZOMAC P11 22-NOV-77 17:57 SEQ 0038 
007364 012777 O20000 171656 RT10A. MOV #B1T13, 0CSR *SET BIT13. 
007372 022777 020000 171650 CMP #B1T13, dCSR ; TEST THAT BiTi3 IS SET 
007400 001402 BEQ 1$ BRANCH iF SET 
007402 104001 ERROR CSR BITi3 FAILED TC SET 
007404 000497 BR 23 > OR AN ry + ama B!T ALSO SET 
007406 042777 O20000 171634 1%: Bic #B1T13, 0CSR > CLEAR BIT13 
007414 005777 171630 TST acsR +; TEST THAT BITIS IS CLEAR 
007420 0C1401 BEQ 2$ 
007422 104001 ERROR ;CSR BITI3 FAILED TO CLEAR 
007424 104006 2. SCOPE 
, RAXKAAAAAA EAA AERA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
007426 000011 RT11: 11 ;ROUTINE # 11 a 
007430 007516 RT12 ;ADOR OF NEXT ROUTINE. x 
007432 000144 100. + ITERATION COUNT x 
0074 34 acy RT11A SCOPE ENTRY POINT. x 
‘ C00011 


X=X+1 
09900095 000000 096505 000055005009500955090000095905909909099999 9992 9 0d 9d 9 | 


> TEST THAT RESET & CLEAR INSTRUCTION CLEAR ALL R/W BITS IN THE CONTROL 
> STATUS REG. (CSR) 


OG7436 012777 O30167 171604 RT11A: MOV #20167. aCSP >SET ALL R/W BITS IN THE CSR 
007444 005037 001276 CLR XMTDAT 
007450 104005 SRESET > ISSUE RESET 
QO74S2 017737 #171572 001274 Mov aC SR, RCVDAT GET CSR CONTENTS 
007460 001402 BEG 1$ >BRANCH IF RESET CLEARED ALL SITS 
007462 104011 ERROR 1 ;ERROR! RESET DID NOT CLEAR ALL BITS 
007464 000764 BR RT11A ;LOOP ON ERROR 
007466 012777 O30le7 171564 1%: MOV #30167 aCSR ;SET ALL R/W BITS IN CSR 
007474 005077 171550 CLR acsr »CLEAR THE CSR 
007500 017737 171544 O0127% aftov acsr. FCVDAT -GET & TEST CSP 
007506 001402 BEG 28 >GO TO EXIT IF RESULT = 0 
007510 104011 ERRORI ;ERROR' CLEAR INST. DID NOT CLEAR ALL BITS 
007512 000765 BR 1$ >LOOP ERROR 
007514 104006 2S: SCOPE ; SCOPE 

me 553202222505535555055553055929 09322222950) 2 2290058 52070220 8 08 28 2 dd 0 > 8 8 8 | 
067516 000012 RT12: 12 /ROUTINE # 12 x 
007520 007652 RT!3 >ADOR OF NEXT ROUTINE. x 
GG7522 000012 10 : ITERATION COUNT x 
007524 007526 RT12A > SCOPE ENTRY POINT. t 

000012 


X=X+1 
905055 05900900000000000000000000500000099080050209502999209259 9092922 9: 


> TEST THAT A BINARY COUNT CAN BE LOADED INTO ‘A CLEAR BKCSP AND THAT 
A BINARY COUNT CAN BE CLEARED. 


007526 005037 001276 RT12A. CLR XMTDAT 

007532 013777 001276 171514 1%: MOV XMTDAT. @BKCSR ;LOAD BINARY = INTC BETS 
007540 017737 171510 001274 MoV @sKCSR,RCVDAT ;GET BKCSR DATA 

007546 023737 001276 901274 CMP XMTDAT. RCVDAT ; COMPARE DATAyLORDEC & para | PEAC BACK 
007554 001405 BEQ 2$ *>BRANCH '@ DRTA COMPARES 
007556 104011 ERROR1 ERROR! DATAYQDOD NIT COMPARE 
007560 032777 O4O000 171314 BIT #B1T14, dSWR > SCOPE LOOP? 

007566 001361 BNE 1$ *BRANCH IF _SCOPE LOOP 

007570 013701 001276 2s MOV XMTDAT, %1 SAVE BINARY” OUNT 

007574 005037 001276 CLR XMTOAT 

007600 005077 171450 3$. CLR BK CSR CLEAR BKCSR AND TEST 

007604 017737 171444 001274 MoV @BKCSR.RCVDAT -BKCSR CAN BE CLEARED 


A 








ne | 
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007612 
007614 
007616 
007624 
007626 
007632 
007640 
007642 
007646 
007650 


007652 
007654 
007656 
007660 


0G7662 
007666 
007674 
007700 
.007704 
007712 
007720 
007726 
007730 
007732 
007740 
007742 
007746 
007754 
007756 
007760 
007762 


007764 
007766 


007774 
010002 
010006 
010010 
010016 
010020 
010022 


010024 
010026 


22-NOV-77 


001405 


104006 


000013 
007764 
000144 
007662 
000013 


012702 
017737 
004737 
010037 
013777 
017737 
023737 
001401 
104011 
032777 
001406 
005077 
013777 
000753 
005302 
001342 
104006 


000014 
010024 
000012 
007774 
000014 


012777 
005037 
104005 
017737 
001401 
104011 
104006 


000015 
010160 


040000 


001276 
001276 


001276 


010000 
171362 
002756 
001276 
001276 
171336 
00127 


040000 


171306 
001612 


177777 


001276 
171240 


171256 


177777 


001612 


171342 
001274 
001274 


171142 


171300 


171252 


001274 


‘*. 
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SEQ 0039 
} 
BEQ ss 4G +BRANCH IF BKCSR CLEARED 
ERROR1 ERROR! BKCSR DID NOT CLEAR 
BIT #81714, dSUR + SCOPE LOOP? 
BNE 3$ ; BRANCH 1F SCOPE LOCP 
4$: MOV %1, XMTDAT GET BINARY COUNT 
CMP XMTDAT, #-1 +ALL NUMBERS BEEN LOADED 
BEQ 5% +GO TO EXIT 
INC XMTDAT + INCREMENT BINARY COUNT 
BR 1$ REPEAT TEST 
5S: SCOPE + SCOPE 
» MXXKAAAAAA EAA AAA AAR AAA AAA AAA AAA AAA AAA AAA AAA EES 
RT13: 13 ;ROUTINE # 13 t 
RT14 ;ADOR OF NEXT ROUTINE. _* 
100. + ITERATION COUNT 4 
RT13A SCOPE ENTRY POINT. x 


X=X+1 
> RAKKA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA ETE 
> TEST THAT RANDOM NUMBERS CAN BE LOADED INTO THE BKCSR 


RTi3A: MOV #10000, %2 GET RANDOM #COUNTER 
1$: MOV Q@BKCSR.-PRVCNT ;GET PREVIOUS CONTENTS 
JSR 7, @#RNGEN +GO GET A RANDOM NUMBER 
MOV %0, XMTDAT ;GET RANDOM NUMBER 
23: MoV XMTDAT, BBKCSR ;LOAD RANDOM NUMBER INTO BKCSR 
MOV @BKCSR,RCVDAT ;GET BKCSR DATA 
CMP XMTDAT,RCVDAT ;COMPARE DATA 
BEQ 3$ BRANCH IF SAME 
ERROR 1% ERROR! DATA NO7 THE SAME 
3S: BIT #B1T14, dSHR SCOPE LOOP? 
BEQ 4 BRANCH IF NO LOOP ON ERROR 
CLR @BKCSR ; 
MoV PRVCNT. dBKCSR ;LOAD PREVIOUS CONTENTS 
BR 2$ ;REPEAT TEST 
4S: DEC %2 
BNE 1$ BRANCH IF NOT 
5S: SCOPE + SCOPE 
22222299299 299 055559929 929599 002 2222222229202 2929 2992520299229 2 28 8 2 8 0 0 | 
RT14: 14 ,ROUTINE & 14 4 
RT15 >ADOR OF NEXT ROUTINE. * 
10. > ITERATION COUNT x 
RT1I4A > SCOPE ENTRY POINT. x 


X=X+1 
OQ IOIIDIIDIIIDIOODIO III 


> TEST THAT RESET CLEARS ALL BREAK STATUS REGISTER BITS 


RT14A: MOV #-1,@BKCSR 
CLR XMTDAT 
SRESET 
MOV OBKCSR, RCVDAT 
BEQ 1$ 
ERROR 1 
1$: SCOPE 
1 on eae” Wamenraien ema ete ""1" a tt Yee neem aeaene 
TIS. 15 >ROUTINE & 15 
RT16 ;AQDP OF NEXT ROUTINE : 
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010030 
010632 


010034 
010040 
010046 
010054 
010062 
010064 
010066 
010074 
010076 
010102 
010106 
010112 
016120 
010122 
010124 
010132 
010134 
010140 
010146 
010150 
010154 
010156 


010160 
010162 
010164 
010166 


010170 
010174 
010202 
010206 
010212 
010216 
010224 
010232 
010240 
010242 
010244 
010252 
010254 
010260 
010266 
010270 
010272 
010274 


000012 
010034 
000015 


005037 
013777 
017737 
023737 
001405 
104011 
032777 
001361 
013701 
005037 
005077 
017737 
001405 
104011 
032777 
001365 
010137 
023727 
001403 
105237 
000731 
104006 


000016 
010276 
000144 
010170 
000016 


012702 
017737 
904737 
042700 
010037 
013777 
017737 
023737 
001401 
104011 
032777 
001406 
005077 
013777 
000753 
005302 
001340 
104006 


001276 
001276 
171204 
001276 


040000 


001276 
001276 
171144 
171140 


040000 


001276 
001276 


001277 


010000 
171056 
002756 
000377 
001276 
001276 
171026 
001276 


040000 


170776 
001612 


171210 
001274 
001274 


171006 


001274 
170750 


177000 


001612 


171032 
001274 
001274 


MACY11 30(1046) 


; MAEXAKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATTA AAA AAA AAA AAAS 
TEST THAT A BINARY COUNT oe Rs LOADED INTO A CLEAR BASREG AND THAT 


10. 
RTiSA 
X=X+1 


B 4 
30-NOV-77 09:34 PAGE 18-5 


>A BINARY COUNT CAN BE CLEAR 


RT15A: 
1$: 


2S: 


5S: 
RT16: 


SOOO III III III 
; TEST THAT RANDOM NUMBERS CAN BE LOADED INTO THE BASE REGISTER 
#1 


SCOPE 


X=X+1 


XMTDOAT 

XMTDAT, @BASREG 
OBASREG, RCVDAT 
pee iaginesss 


“hice Sage 

1 

XMTDAT, %1 
XMTDAT 

@BASREG 
OBASREG, RCVDAT 
4% 

#B'1T14, QSHR 

3$ 


%1. XMTDAT 
XMTDAT, #177000 


5$ 
XMTDAT+1 
1% 


RT16A: MOV 0000, %2 

1S. MOV OBASREG, PRVCNT 
JSR 7, 0#RNGEN 
BIC #000377, %0 
MOV %0, XMTDAT 

25. MOV XMTDAT. ABASREG 
MOV OBASREG, RCVDAT 
CMP XMTDAT, RCVDAT 
BEQ 33 
ERROR 1 

35- BIT #B1T14, dSWR 
BEQ 4% 
CLR ABASREG 
MOV PRVUCNT. d@BRSREG 
BR 2$ 

4s: DEC %2 
BNE 

5%, SCOPE 


; ITERATION COUNT 
SCOPE ENTRY POINT. 


;LOAD BINARY COUNT INTO BASREG 


GET BASREG DATA 


COMPARE DATA 


+BRANCH IF DATA COMPARES 


ERROR! DATA DID NOT COMPARE 


SCOPE LOOP? 


>BRANCH IF SCOPE LOOP 
SAVE BINARY COUNT 


BRANCH IF BKCSR CLEARED 


> ERROR! BKCSR DID NOT CLEAR 


SCOPE LOOP? 


*>BRANCH IF SCOPE LOOP 
/GET BINARY COUNT 
*ALL NUMBERS BEEN LOADED 


>GO TO EXIT 


; INCREMENT BINARY COUNT 
TEST 


; REPEAT 


;ROUTINE # 16 


; E 
WITITTTITITT TTT TTT hettttt tte t tet ttt tite tttttttt ttt titi tits t ts: 


; RODR OF NEXT ROUTINE 
; ITERATION COUNT 
;SCOPE ENTRY POINT. 


>GET RANDOM #COUNTER 
GET PREVIOUS CONTENTS 
>GO GET A RANDOM NUMBER 
CLEAR UNUSED BITS 

;GET RANDOM NUMBER 


LOAD RANDOM — INTO BASREG 


GET BASREG DATA 
; COMPARE DATA 


BRANCH IF SAME 


ERROR! DATA NOT THE SAME 


SCOPE LOOP? 


BRANCH IF NO LOOP ON ERROR 


LOAD PREVIOUS 
*>REPEAT TEST 

* 10000 NUMBERS 
BRANCH {iF NOT 
> SCOPE 


CONTENTS 
BEEN TESTED 


ot ot 2t 


SEQ 0040 
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DZOMAC P11 22-NOV-77 17: 57 SEQ 0041 
j MXKAAKAAAAAA AAA AAA AAA REAR A AAA AAA AAA AAA AAA AAA AAA KAA AAA AAA EAE 
010276 000017 RT1?: 17 ;ROUTINE # 17 * 
010300 010370 RT20 ;ADOR OF NEXT ROUTINE. t 
010302 000144 100. ; ITERATION COUNT * 
010304 010306 RT17A SCOPE ENTRY POINT. ¥ 
000017 X=X+1 
j AAKAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
; TEST THAT ALL oR BITS CAN BE INDIVIDUALLY SET AND CLEARED 
010306 013701 001252 RT17A: MOV BAR, %1 +GET BAR ADDRESS 
010312 012777 001106 170736 MOV #CAT, OBASREG ; INITIALIZE BASE REGISTER 
010320 012700 000001 MOV #1,%0 +GET BIT TESTER 
010324 O5C011 18: Bis 40, (1) ;SET BAR BIT 
010326 020011 CMP 40, (1) TEST THAT ONLY THE PROPER BAR BIT SET 
010330 001006 BNE 3$ BRANCH IF ERROR 
010332 040011 BIC “0. (1) >CLEAR BAR BIT 
010334 005711 TST (1) TEST THAT BAR BiT CLEARED 
010336 001011 , BNE 5$ ;>BRANCH IF BAR BIT FAILED TO CLEAR 
010340 006300 ASL %0 >SHIFT BIT TESTER 
010342 103370 BCC 1$ 
Q10344 104006 2$: SCOPE + SCOPE 
010346 010037 001276 3$: MOV %0, XMTDAT GET WHAT DATA WAS SUPPOSED TO BE 
010352 011137 901274 4S: MOV (1),RCUDAT ;GET WHAT DATA WAS 
010356 104011 ERROR 1 ERROR! IMPROPER BIT OPERATION 
010360 000771 BR 2$ *GO TO SCOPE 
010362 005037 01276 gs: CLR XMTDAT ;GET WHAT DATA WAS SUPPOSED TO BE 
010366 000771 Br 4$ 
1392222353 6959 9555933335 535959 592200229029 920 0000899920059 3 99000223999 2 | 
010370 000020 PTZ0 20 *ROUTINE # 20 a 
010372 010456 RT2 ADDR OF NEXT ROUTINE x 
010374 900012 10 > ITERATION COUNT x 
000020 X=X+1 


me 22$$000009000000852002225590025552553222255532525252252255252292222329) 
; TEST THAT RESET CLEARS ALL BAR BITS 


010400 005037 001276 RT20A: CLR XMTDAT 

010404 052777 177777 170640 BIS #&-1, dBAR *SET ALL BAR BITS 

010412 104005 SRESET >RESET 

010414 017737 170632 001274 MOV BAR. PCVDAT >GET BAR DATA 

010422 001402 BEQ 1% *>BRANCH IF ALL O'S 

010424 104011 ERROP 1 S ERPOR! RESET DID NCT CLEAP ALL BAP BITS 

010426 000412 BR 2$ /GO TO EXIT 

010430 052777 177777 170614 1%. BIS #-1,- dBAR *SET ALL BIT IN THE BAR 

010436 005077 170610 CLR @BAR ;CLEAR ALL BITS IN THE BAR 

010442 017737 170604 01274 MOV @BAR, RCVDAT ;GET & TEST RESULT OF CLEAR OPERATION 

010450 001401 BEG 23 >EXIT IF ALL BITS CLEARED 

010452 104011 ERROR1 >ERROR! ALL BITS OID NOT CLEAP 

010454 104006 SCOPE > SCOPE 
BTTTTITITITTTTTTTTITITTTTTTTTTITITTTTT TTT TTT 

010456 000021 RT2 1 Z1 *ROUTINE # 21 % 

010460 010564 RT22 >ADOR OF NEXT ROUTINE 4 

010462 000144 100. > ITERATION COUNT t 

010464 016466 RT21A »SCOPE ENTRY POINT i 

000021 X=X+1 





| 
| 
| 
| 
| 
010376 010400 RT20A ; SCOPE ENTRY POINT t | 
| 
| 
| 
| 
| 
| 
| 
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010466 
010474 
010500 
010506 
010510 
010516 
019524 
010526 
010530 
010536 
010542 
010544 
010552 
010560 
010562 


010564 


010572 


010574 
010602 
010606 
010614 
010616 
010624 
010632 
010634 
010636 
010644 
010650 
010052 
010660 
010666 
010670 


616672 
010674 
010676 
010700 


010702 
010710 
010714 
010722 
010724 
010732 
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012777 
105077 
022777 
001410 
012737 
017737 
104011 
000415 
012777 
105077 
001407 
012737 
017737 
104011 
104006 


000022 
010672 
000144 
010574 
oon0z2 


012777 
105077 
022777 
001410 
012737 
017737 
104011 
000415 
012777 
105077 
001407 
012737 
017737 
104011 
104006 


000023 
011000 
000144 
010702 
006023 


012777 
105077 
022777 
001410 
012737 
017737 


7: 7 


010100 
170550 
010000 


010100 
170526 


010100 
171052 


000100 
170472 


010100 
170444 
010000 


010100 
170422 


910100 
170746 


000100 
170364 


010100 
170340 
010000 


010100 
170316 


170554 
170542 
001276 
001274 
170512 


001276 
001274 


170450 
1704 36 
001276 
001274 
170406 


001276 
001274 


170344 
170332 


001276 
001274 


MACY11 30(1046) 
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al THAT CSR girken oy PROPERLY TO BYTE COMMANDS 


RT21A: MOV #10100, dCSR 
ask 
nen 
#10100, XMTOAT 
MOV aCSR, RCVDAT 
2$ 

#10100. dCSR 
a. CSR 

BEQ 2$ 


#00100, XMTOAT 
@CSR, RCVDAT 


;LOAD TEST NUMBER IN CSR 
CLEAR EVEN BYTE 
+ TEST THAT ONLY EVEN BYTE CLEARED 


+LOAD CORRECT RESULT 

+GET ACTUAL RESULT 

ERROR! EVEN BYTE INSTRUCTION FAILED 
GO TO SCOPE 

+LOAD TEST NUMBER IN CSR 

; TEST THAT ONLY ODD BYTE CLEARED 


+LOAD CORRECT RESULT 
;LOAD ACTUAL RESULT 
*ERROR! ODD BYTE INSTRUCTION FAILED 


23: , SCOPE 
UDO OOOO OOOO OOOO 
x 


RT22: 22 


+ROUTINE # 22 


ADDR OF NEXT ROUTINE. x 
> ITERATION COUNT 1 
SCOPE ENTRY POINT. + 


SOOO III IOI OOOO IO 


> TEST THAT BAR RESPONDS PROPERLY TO BYTE COMMANDS 


PT22A: MOV #10100, dBAR 
CLRB aBAR 
CMP #10000. dBAR 
BEG 1% 
MOV #10100. XMTDAT 
MoV @BRR.RCUDAT 
ERROR1 
BR 2$ 

1$ Mov #10100, dBAP 
CLRB a BAR 
BEQ 2$ 
MOV #00100. XMTDAT 
MOV aCSR, RC VDAT 
ERROR1 

2 OP 
RT24 
100. 
RT23A 
X=X4+1 


2$: SCOPE 
Bitttttitietttttittittsistitttstititessstttecsstiticcrssticsrsstiiisss | 
p72 23: 23 


*LOAD TEST NUMBER IN BAR 
; CLEAR EVEN BYTE 
> TEST THAT ONLY EVEN BYTE CLEARED 


7LOAD CORRECT RESULT 

>GET ACTUAL RESULT 

; ERROR! EVEN BYTE INSTRUCTION FAILED 
GO TO SCOPE 

*LOAD TEST NUMBER IN BAR 

TEST THAT ONLY ODD BYTE CLEARED 


>LOAD CORRECT RESULT 

>LOAD ACTUAL RESULT 

>ERROP! ODD BYTE INSTRUCTION FAILED 
> SCOPE 


+ROUTINE # 23 

ADDR OF NEXT ROUTINE. 
> ITERATION COUNT 
>SCOPE ENTRY POINT. 


2t 26 Pt 2E 


SOOO IOI III III IOI 
; TEST THAT BKCSR RESPONDS PROPERLY TO BYTE COMMANDS 


RT23A: MOV #10100, dBKCSR 
CLRB OBKCSR 
CMP #10000, dBKCSR 
BEQ 1$ 
MoV #10100, XMTOAT 
MOV OBKCSR. RCVDAT 


>LOAD TEST NUMBER !N BKCSR 
CLEAR EVEN BYTE 
> TEST THAT ONLY EVEN BYTE CLEARED 


*LOAD CORRECT RESULT 
GET ACTUAL RESULT 


SEQ 0042 
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010740 
010742 
010744 
010752 
010756 
010760 
010766 
010774 
010776 


011000 
011002 
011004 
011006 


011010 
011016 
011024 
611032 
011036 
011040 


011042 


011044 
011046 
011050 
011052 


011054 
011062 
u11070 
011076 
011104 
011:06 
011110 
011112 
011114 
011122 
011130 
011134 
011142 
011144 
011146 


011150 


011152 
011154 


22-NOV-77 


104011 
000415 
012777 
105077 
001407 
012737 
017737 
104011 
104006 


000024 
011044 
000144 
011010 
000024 


012777 
012777 
052777 
005937 
000240 
104001 


104006 
000025 


104001 
104006 


000026 
011170 


010100 
170642 


000100 
170256 


011042 
010C60 
020000 


177776 


000340 
011112 
030000 
000200 


001266 
011146 
170114 
030000 


170302 


001276 
001274 


17246 
170224 
170216 


177776 
170174 
170152 
177776 


177776 
170134 


170106 


. 3 
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ERROR1 ERROR! EVEN BYTE INSTRUCTION FAILED 
BR 2% GO TO SCOPE 

1$: MOV #10100, dBKCSR ;LOAD TEST NUMBER IN BKCSR 
oo @ BKCSR + TEST THAT ONLY ODD BYTE CLEARED 


2$ 
MOV #00100,xXMTDAT ;LOAD CORRECT RESULT 
MOV OCSR, RCVDAT +LOAD ACTUAL RESULT 


ERROR1 ;ERROR! ODD BYTE INSTRUCTION FAILED 

23: SCOPE ; SCOPE 

SAD UO OO OOO I SOIOSOSOIOOSOO OO OIOIOOI OO OIOI IE OL 

RT2u. 24 ;ROUTINE # 24 x 
RT25 ; ADDR OF NEXT ROUTINE. x 
109. ; ITERATION COUNT x 
RT24A > SCOPE ENTRY POINT. x 
X=X+1 


eo 229 o 999 99999 995900999999905 3855992 > >>> 9929095020) 0 200022090908» | 
>; TEST THAT OVER RUN BIT (CSR BIT13) CAUSES AN INTERRUPT WHEN SET 


RT24A: MOV #1$, dXMTINT ;LOAD TRANSMITTER INTERRUPT VECTOR 
MOV #81712. adCSR ;SET TRANSMITTER IE BIT 
BIS #6!T13.aCSR >SET OVER RUN BIT 
oo aePSW >; ENABLE INTERRUPTS 
NO 
ERROR > ERROR' OVERRUN FAILED TO CAUSE AN 
> INTERRUPT, OR INTERRUPTED TO INCOR- 
>RECT ADDRESS 
1% ; SCOPE 
IUTTETTCTIETETTCTETITTCTITETT TTT ERTL ETT TTT TET TEL ELT T TTT TTT ttt tS 
RT25: 25 ;ROUTINE # 25 x 
RT26 : ADDR OF NEXT ROUTINE. x 
100 > ITERATION COUNT x 
RT25A >; SCOPE ENTRY POINT. x 
=X+1 


SOOO OOOO 
; TEST THAT THE DM11 INTERRUPTS AT THE CORRECT LEVEL 


RT25A: MOV aPRTY7, d#PSW 
MoV #1%, dXMTINT >LOAD TRANSMITTER INTERRUPT VECTOR 
MOV #30000, aCSR *SET OVER RUN & IE BITS 
MOV aPRTY4, dePSHW >ALLOW INTERRUPTS ON LEVEL 5 & ABOVE 
NOP 
ERROR 7ERROR!OM11 FAILED TO INTERRUPT 
BR 3$ GO TO EXIT 
1S. CMP (6)+, (6)+ RESET STACK POINTER 
MOV XMTLUL, d#PSH +LOAD OM11 INTERRUPT LEVEL 
MOV #2$, dXMTINT >LOAD TRANSMITTER INTERRUPT VECTOR 
CLR acSR 
MoV #30000. aCSP 
NOP 
BR 3$ /GO TO EXIT 
2$ ERROR ERROR! OM11 INTERRUPTED ON HIGHER 


/PRIORITY LEVEL THAN SET FOR 


3: SCOPE 
4 age * acter sincerest ea TT TO ate acento t oinkonte este 
T26: 26 >ROUTINE # 26 ‘ 
R127 >ADDRESS OF NEXT TEST * 





MAINDEC-11-DZ2DMA-C OM11 LOGIC TESTS 


DZ0MAC P11 


011170 
011172 
011174 
011176 


011200 
011204 


011206 
011210 
011212 
011214 


011216 
011222 


011224 
011226 
011230 
011232 


O11234 
011240 


011242 
011244 
011246 
011250 


011252 
011256 


011260 
011262 
011264 
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000144 
011162 
000026 


004537 
000009 
0c0001 


000027 
011206 
000144 
011200 
000027 


004537 
000002 
000002 


000030 
011224 
000144 
O11Z16 
000030 


004537 
000004 
000003 


000031 
011242 
000144 
011234 
000031 


004537 
000006 
000004 


000032 
011260 
000144 
011252 
000032 


004537 
000010 
000005 


006033 
011276 
000144 


004330 


004330 


004 330 


004330 


004330 


FY 
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100. ; ITERATION COUNT x 
Mite ;SCOPE ENTRY POINT x 
=X+ 


5 MXKAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
* TRANSMITTER LINE TEST LINE O 


LTSTO: JSR 5,XMTTST ;GO TEST TRANSMITTER LINE O 
LINEO 
Y=Y+1 

eo 05550050 00550000000000000000000000500000955055099999 9029222099990 9 0008) 

R127: 27 ;ROUTINE # 27 x 
RT3S ;ADDRESS OF NEXT TEST. x 
100. ; ITERATION COUNT | 
LTST1 ; SCOPE ENTRY POINT x 
X=X+1 


etsettttssettetsettettettttttestettesttstisstssets testes teste esees ees ee: 
>; TRANSMITTER LINE TEST LINE 1 


LTST1: JSR 5, XMTTST GO TEST TRANSMITTER LINE 1 
LINE 1 
Y=Y+1 

SOOO oO OOOO OOOO III IIE 

RT 30: 30 +ROUTINE # 30 x 
RT31 >ADDRESS OF NEXT TEST. a 
100. > ITERATION COUNT x 
LTST2 > SCOPE ENTRY POINT * 
X=X+1 


SOOO OOOO IIIS IS OOOO 
» TRANSMITTER LINE TEST LINE 2 


LTST2: JSR 5, XMTTST ;GO TEST TRANSMITTER LINE 2 
LINE2 
Y=Y+1 

S00 ooooooooipooopa pg oIgOISIOIOIOIDIDIOIDIIDIOIDIOIIOIIOIOIDIOIDIOOIIDIOIIOIOC OOOO IOI 

RT31: 31 ;ROUTINE # 31 x 
RT32 :ADDRESS OF NEXT TEST x 
100. > 1TERATION COUNT x 
LTST3 ;SCOPE ENTRY POINT x 
X=X+1 


Sooo III IOI IGIOIDIOIDIOIOIOIOIDIDIOIOIDIO OOOO OOOO 
: TRANSMITTER LINE TEST LINE 3 


LTST3: JSR © 5, XMTTST GO TEST TRANSMITTER LINE 3 
LINES 
Y=Y+1 

SOOO IOI 

PT32: © ;ROUTINE # 32 ¥ 
RT33 ADDRESS OF NEXT TEST * 
100. > ITERATION COUNT ¥ 
LTST4 ;SCOPE ENTRY POINT . x 
X=X+1 


Sao III IIIS III IDOI III 
>; TRANSMITTER LINE TEST LINE 4 


LTST4: JSR 5, XMTTST >GO TEST TRANSMITTER LINE 4 
LINE4 
Y=Y+1 
me ee005000000090000000002002320055202202522925220522003 2200550505 52058522 5 | 
RT33: 33 ROUTINE & 33 t 
RT34 >ADDRESS OF NEXT TEST 4 
100. > ITERATION COUNT ‘ 


MAINDEC-11-DZ20MA-C OM11 LOGIC TESTS 


BOOMAC P11 
011266 


011279 
011274 


011276 
0112300 
011362 


011304 


011306 
Q1isi2 


O11314 
Q1izle 
011320 
011322 


011324 
011330 


011332 
011334 
011336 
011340 


011350 
011352 
011354 
011356 


011360 
011364 


011366 
011370 
011372 
011374 
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011270 
000033 


004537 
000012 
000006 


000034 
011314 
O00144 
011306 
o0co34 


004537 
000014 
000007 


000035 
011332 
000144 
011324 
000035 


004537 
000016 
000010 


000036 
011350 
000144 
011342 
000036 


004537 
000020 
000011 


000037 
011366 
000144 
011360 
000037 


004537 
000022 
000012 


000040 
011404 
000144 
011276 


004330 


004330 


NOY 3 


004230 


G 4 
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LTSTS ; SCOPE ENTRY POINT K 
X=X+1 
me 9999095000090 00000050000000020000900005005000000800099993009 98 00% od 8 dd 8 | 
> TRANSMITTER LINE TEST LINE 5 


LTSTS: JSR 5.XMTTST ;GO TEST TRANSMITTER | INE 5 
LINES 
Y=Y+1 

O59 0000509000000 000000005000000000900000000900099090990990909 > > >> > 9 0 0 2 8 | 

RT34: 34 ;ROUTINE # 34 x 
RT35 ;ADDRESS OF NEXT TEST. x 
100. ; ITERATION COUNT x 
LTST6 ;SCOPE ENTRY POINT x 
X=X+1 


$2929 9 9999999953999 9990999290529 99592202999 2200022002000 02 22002290929 | 
, TRANSMITTER LINE TEST LINE 6 


LTSTo: JSR 5, XMTTST ;GO TEST TRANSMITTER LINE 6 
LINE6 
Y=Y+1 

$2222 oo 9929999993952 09 09990909 > ooo o> 9390039095990 509 020000900008 0 0 0 oo | 

RT3S: 35 ROUTINE # 35 2 
RT36 ;ADDRESS OF NEXT TEST. ¥ 
100. > ITERATION COUNT ¥ 
LTST? ;SCOPE ENTRY POINT x 
X=X+1 


22239009959 99992909 992055995992 09 592299299902 299 2999222300 9303 29020509 8 | 
/ TRANSMITTER LINE TEST LINE 7 


LTST?. ISR 5, XMTTST ;GO TEST TRANSMITTER LINE 7 
LINE7 
Ys Ye! 
SESEEAAAA EATER AER AEA A TEREST EAR AAAS RAAT SA ARTA AAAS AREAS EAST REET EES 
PT36 26 ;ROUTINE # 36 x 
RT37 ADDRESS OF NEXT TEST. x 
100. > ITERATION COUNT x 
LTST10 >;SCOPE ENTRY POINT x 
X=X%+1 


290 000002005000533 9050595350502 5 992902220222 0095 9392002 95939302202 999929 | 
> TRANSMITTER LINE TEST LINE 10 


LTST10: JSR 5, XMTTST ;GO TEST TRANSMITTER LINE 10 
LINE10 
Y=Y+1 

0500290 6000000000200000000550000050000200000000022009922299999999 000298 8 | 

RT37: 37 >;ROUTINE # 37 x 
RT4O > ADDRESS OF NEXf TEST. x 
100. > \TERATION COUNT x 
LTST1i1 >SCOPE ENTRY POINT x 
X=X+1 


O0050000206020050090020050255900002395200533252055535550255537552525228) 
TRANSMITTER LINE TEST LINE 1i 


LTST11. JSR 5, XMTTST >;GO TEST TRANSMITTER LINE 1i 
LINE11 
Y=Y+1 
'5900000000060000202000000202029000000000000200232035052250525255255252935 3 3 
PTUD 40 ROUTINE # 40 ‘ 
RT41 >ADORESS OF NEXT TEST i 
100. > ITERATION COUNT t 
LTSTt2 SCOPE ENTRY POINT a 


SEQ 0045 


H 4 
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OZOMAC P11 22-NOV-77 17:57 SEQ 0046 
000040 X=X+1 
O35 0555005 5550000055000000000040000000050000000002080555953052 5295 8 03 2 | 
; TRANSMITTER LINE TEST LINE 12 
011376 004537 004330 LTST12. JSR 5.XMTTST ;GO TEST TRANSMITTER LINE 12 
011402 000024 LINE12 
000013 Y=Y+1 
$59 50055 0000000000000 0000060000000000000500500500005230558225285 0395598: 
011404 oc0041 RT41:; 41 ;RCUTINE # 41 t 
011406 011422 RT42 ,; ADDRESS OF NEXT TEST ’ 
011410 O00144 100. , ITERATION COUNT ’ 
011412 011414 LTSTI3 ; SCOPE ENTRY POINT a 
000041 X=X+1 
OS 09505000 005505500000000000000500060008050509005285552553055 255555032 8 | 
> TRANSMITTER LINE TEST LINE 13 
11814 Q04537 O04 770 LTST13: JSR 5. xMTTST ;GO TEST TRANSMITTER LINE 12 
711426 000026 LINE123 
000014 Y=Y+1 n 
MOSES COCCCSCOSOCSSSESESSS SSCS S SSCS ee eee See ee ee ee Oe OSPR SESS SESE SES ES ERS SED: 
011422 000042 PT42 42 /ROUTINE & 42 1 
011424 O11440 RT4U3 - ADDRESS OF NEXT TEST 4 
011425 900144 100. » }TERATION COUNT a 
011470 O114%32 LTST14 > SCOPE ENTRY POINT ' 
acdos 2 X=X+1 
SSCS SSC C SESS OSES SOS OSS CESS SSCS SOS SSCS OSES OSS OS PSESESESS ESSERE SSSR ESS | 
> TRANSMITTER LINE TEST LINE 14% 
011432 OO4S37 Gos rtre LTST1I4. JSR 5. ¥MTTST -GO TEST TRANSMITTER LINE 14 
011436 000030 LINE14 
000015 Y=Y+1 
MOSSSSSSTOSCSSESCESSOSSCCSCCSSSO CC SOS OSS Fee eee eee SOS SSO CSS OSES SEES ERE EE SESS S| 
011440 oO00043 PT43 3 >ROUTINE # 43 t 
011442 011456 RTUY ;ADORESS OF NEXT TEST t 
011444 O00144 100 > ITERATION COUNT * 
011446 011450 LTST15 SCOPE ENTRY POINT t 
000043 X¥=X+1 
MESCCCTCECECCCSOSCCTSECOSESCCOSCSSSSSCOCCSOCOCSSSCOCSCCOSCOCSCCSS COS SSE SORES SSS | 
> TRANSMITTER LINE TEST LINE 16 
O:1450 004837 004370 LTST15: JSR 5. ¥MTTST ,GO TEST TRANSMITTER LINE 15 
011454 Q00032 LINE15 
ooo0le Y=Y+1 
MUSTCSCCCCOCOSCSCCOSECOUSOSESCESECSEOSOS SC CS OCC C CC CCOSOCOSES OSES OS SSSS SESS S| 
OC1t4Se 900044 PTUY 4y SPOUTINE # 44 7 
[114—0 011474 RT4S >ADDRESS OF NEXT TEST 4 
Gil4e2 000144 100. » ITERATION COUNT % 
Ol1464 O11466 LTSTlo /SCOPE ENTRY POINT t 
o00044 K=X+1 
ECC CTOSCSOCOCCRS CCS O SSCS OCCT COSC CSCS OCC O COCO OS OSS ESOEO RSS TOSESESEE ESE SF 
_ TRANSMITTER LINE TEST LINE to 
011466 O0O4637 O04 3350 LTST16: JSR 5, XMTTST >GO TEST TRANSMITTE® LINE le 
011472 OO00034 LINE 16 
000017 y=Y+1 
MESTECCECECCOCSSCE OS OSES CCCP OOPS CeCe eee OOO CePA TCR SE EEC RESRECSES SPSL SLES E | 
011474 QOO004S PTUs 4S >ROUTINE #&# 45 4 
011476 011612 RT46 /ADORESS OF NEXT TEST ' 
011500 006144 P 190 » 1 TERATION COUNT ‘ 
011502 011504 LTST1? /SCOPE ENTRY POINT ‘ 


oooo4s Exe! 
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OCOMAC 


Pil 


011504 
011510 


011512 
011514 
011516 
011520 


011530 
011632 
011534 
011576 


011540 
011544 


011546 
011550 
011552 
0115546 


011556 
U115e2 


011564 
011560 
011570 
011572 


011574 
011600 


011602 
011604 
011606 
011610 
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004537 
009036 
000020 
000000 
000000 


000046 
011530 
000144 
011522 
ooC046 


004537 
000000 
000001 


000047 
01154¢ 
000144 
0116460 
o0004~ 


0046357 
000092 
oco00: 


000050 
011564 
000144 
011556 
000050 


004537 
000004 
000002 


000051 
011692 
000144 
011574 
000051 


004537 
000006 
000004 


000052 
011020 
000144 
O1let2 


004330 


OO4542 


O04542 


*. 
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re $222 2399950999999 9590855599595 005555 9222290509900 2050 5 28 8222200 0 8 8 8 0 0 | 
; TRANSMITTER LINE TEST LINE 17 


LTST17: JSR 5,XMTTST ;GO TEST TRANSMITTER LINE 17 
LINE17 
Y=Y+1 
Y=0 
A=0 
oe S29 9090000000000 000000000000000000000000000000899095920099099 99059092 8 | 
RT46: 46 ;ROUTINE # 46 x 
RT47 ; ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
RCVO ; SCOPE ENTRY POINT x 
X=X+1 


SQ 
>RECEIVER LINE TEST LINE O 


RCVO: JSR 5. RCVTST ;GO TEST RECEIVER LINE O 
LINEO 
YeY#1 

20900050290 000000805000500500009095000000090090009500993999995908 890909 | 

PTU?7- 47 »ROUTINE & 47 x 
RTSO ;ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
RCI ; SCOPE ENTRY POINT x 
X=¥+1 


25522002550920050599099255593032922500222 2929000992932 2 2292552050253 5 9 | 
-PECEIVER LINE TEST LINE 1 


POV JSP S,PCUTST ;GO TEST RECEIVER LINE 1 
LINE 1 
YsY1 
2209 000050050580250020905020000029909905009 0900095500900 03089959299999 099: 
PTSO 56 ;ROUTINE #& 50 x 
RTS1 ;AODRESS OF NEXT TEST x 
100. > LTERATION COUNT x 
RPCV2 >SCOPE ENTRY POINT ¥ 
X=¥41 


O22200000005020525295022555555225'55520005 2995225920232 035959202 2999229 | 
RECEIVER LINE TEST LINE 2 


PCV2 JSR &,RCVTST ;GO TEST RECEIVER LINE 2 
LINEZ 
Y=Y+1 

50000000020 00050000000020082029200500005500000905 0959995599259 92509 08 2 298 

RTS) 51 ;ROUTINE # 51 x 
RTS2 ;ADORESS OF NEXT TEST x 
100. » \TERATION COUNT ¥ 
RCV ;SCOPE ENTRY POINT x 
K=X+1 


oo 00000500000060005500002050535222309522023559225223555025222222255 329 3 | 
PECEIVER LINE TEST LINE 3 


RCV3 JSR 5, RCVTST >GO TEST RECEIVER LINE 3 
LINE2 
Y=Y+1 
ro050000200000000000005202008 0 000000000000003209025200000255352002099299 8: 
PTS2 52 >ROUTINE # 52 X 
RTS2 >ADDRESS OF NEXT TEST ¥ 
100 > ITERATION COUNT t 
PCWy >SCOPE ENTRY POINT ¥ 


SEQ 0047 





( —t__. 
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011612 
011616 


011620 
011622 


G11644 


011646 
011652 


011654 
011656 
011660 
011662 


011664 
011670 


011672 
011674 
011676 
011700 


011702 
011706 


011710 
011712 
011714 
011716 
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000052 


004537 
000010 
000005 


oc00s3 
011636 
000144 
011636 
000053 


004537 
000012 
c0c006 


000054 
011654 
000144 
O11o4%6 
oocos4 


004537 
000014 
000007 


000055 
011672 
000144 
011664 
ooc0ss 


004537 
000016 
000010 


000056 
011710 
000144 
011702 
000056 


004537 
000020 
000011 


000057 
011726 
000144 
011720 
000057 


004542 


004542 


o04542 


N04542 


004542 


A 
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X=X+1 
+ MXXKAAAAA AAA A AAA AAA AAA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAA EES 
RECEIVER LINE TEST LINE 4 


RCV4: JSR 5.RCVTST ;GO TEST RECEIVER LINE 4 
LINEY 
Y=Y+1 

Pe O99 999990900 00900000000000000000000900000909990899 9099990909990 d 9 0 0 09 9 | 

RTS3: 53 ;RCUTINE # 53 x 
RTS4 ;ADORESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
RCVS ; SCOPE ENTRY POINT x 
X=X+1 


SOOO OOOO IIIIIIIICIOIOIOIOIIOIOIOIOIOIOIIIIOIOOIOOIISOISI OIE 
>RECEIVER LINE TEST LINE 5 


RCVS: JSR 5,RCVTST ,GO TEST RECEIVER LINE 5 
LINES 
Y=Y+1 
JIQOIOIOOIOOIOIIICICIDIIISIDIISISISISIDIIOIIDIOIIIOIOOI OOOO OOOO IO OOS OI IIS 
RTS4: 54 ;ROUTINE # 54 x 
RT55 ; ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
RCV6 ; SCOPE ENTRY POINT ¥ 
X=X+1 


SOOO IIA OIDIOIIOIDIDIOIDISIISIOI IOI IGIOIIOIOI ISI IO OI OI II IIS 
RECEIVER LINE TEST LINE 6 


RCV6: JSR 5,RCVTST >GO TEST RECEIVER LINE 6 
LINE6 
Y=Y¥+i1 

SOO OOoooopoogooooig og gOIOICIOIOIIOIIDIOIIOIOIOIOIOIDICIIOIOIDIOIIDIOIDIOOIOIO IOI III OI 

RTSS: 55 ;ROUTINE # 55 x 
RTS6 ;ADDRESS OF NEXT TEST x 
100. > LTERATION COUNT x 
RCVZ7 >SCOPE ENTRY POINT x 
X=X+1 


SOOO OOOO OOOO OID III 
>RECEIVER LINE TEST LINE 7 


RCWV?: JSR 5,RCVTST >GO TEST RECEIVER LINE 7 
LINE? 
Y=Y+i 

SQ ooooojigoiggojgg» ggg pInIpIIOIOIIOIIDIIDIOIOIOIOIIOIO IOI IOI IIIA I 

FTS6: 56 ,ROUTINE #& 56 x 
RT57 >ADDRESS OF NEXT TEST x 
100. > ITERATION: COUNT x 
RCV10 > SCOPE ENTRY POINT x 
K=X+1 


2 $020020000080002092999995593 0590099 2090300 0025520055592 75 22299952229 8 | 
>RECEIVER LINE TEST LINE 10 


RCV10: JSR 5,RCVTST >GO TEST RECEIVER LINE 10 
LINE10 
Y=Y+1 

1 SO5500000000000000000000000000000000000000000008050920202000352298299 030 9 | 

FTS?: 57 ;ROUTINE # 57 x 
RT6O ;ADDRESS OF NEXT TEST k 
100. > ITERATION COUNT 1 
RCV11 >SCOPE ENTRY POINT t 
x= +! 


SEQ 0048 


—— 
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011720 
011724 


011726 
011730 
011732 
011734 


011736 
C11742 


011744 
01174e 
011750 
Q11°S2 


011754 
011760 


011762 
011764 
011766 
011770 


011772 
011776 


012000 
012002 
012004 
012006 


012019 
012014 


012016 
012020 
012022 
012024 


22-NOV-77 17: 57 


004537 
009022 
000012 


000060 
011744 
000144 
011736 
000069 


004537 
000024 
000013 


000061 
011762 
000144 
011754 
000061 


004537 
000026 
000014 


000062 
012000 
000144 
011772 
000062 


004537 
000030 
000015 


000063 
012016 
000144 
012010 
000063 


004537 
000032 
000016 


000064 
012034 
000144 
012926 
000064 


004542 


004542 


N04542 


CO4S42 


K 4 
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5 MXKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KAA AAAS 
/RECEIVER LINE TEST LINE 11 


RCV11: JSR 5, RCVTST ;GO TEST RECEIVER LINE 11 
LINE114 
Y=Y+1 

Fe O09 59909059 0550059050000000900000005509590009009009999099 9999909959990 0: 

RT60: 60 ;ROUTINE # 60 x 
RT61 ;ACORESS OF NEXT TESTI * 
100. ; ITERATION COUNT ¥ 
RCV12 ;SCOPE ENTRY POINT t 
X=X+] 


Pe 2 oo 229999999999 99 999999999539 999 2999299299992 20000020022 2999390922202 2 9 | 
/RECEIVER LINE TEST LINE 12 


RCVi2: JSR 5,RCVTST ;GO TEST RECEIVER LINE 12 
LINE12 
YsY41 

Pe 2 9999900900900 000000000000000000000000090995990905 0900999900399 9 8 0 9 0 9 0 | 

RTol: 61 ;ROUTINE # 61 x 
RT62 ;ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
RCV13 ’ >; SCOPE ENTRY POINT x 
X=X+1 


0000 III IOIIDIOIISIOIOIOOIOIDIOIOIOI OOOO OI OI OI III IK 
>RECEIVER LINE TEST LINE 13 


PCV13: JSR 5,RCVTST >GO TEST RECEIVER LINE 13 
LINE13 
Y=Y+1 

Sooo goog ang IOIOIOOIOIIOIOIOIOIOIOOIIOIOIOIOIOIOIOIGOO OOOO IOI 

RT62: 62 ;ROUTINE # 62 : x 
RT63 ;ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT 4 
RCV14 ;SCOPE ENTRY POINT x 
X=X+1 


SOOO OOOO OOOO OI III IOI IOI IOI 
>RECEIVER LINE TEST LINE 14 


RCV14: JSR 5.RCVTST >GO TEST RECEIVER LINE 14 
LINE 14 
Y=Y+1 

Sooo ooo ogo IOIOIIIOIIDIDIIIGOIOIOIIDIII III III IOI 

PToe3: 63 ;ROUT!INE #& 63 x 
RT64 » ADDRESS OF NEXT TEST | 
100. > ITERATION COUNT x 
RCV15 > SCOPE ENTRY POINT x 
X=X+1 


Oo 00 00000020099095555 2995395099820 0 00899930559 95959359 505555 555000502 23) 
RECEIVER LINE TEST LINE 15 


RCV15: JSR '§,RCVIST >GO TEST RECEIVER LINE 15 
LINE15 
Y=Y+1 
OOO OOOO IOI III IOI DIS III III OK 
RT6u. 64 ;ROUTINE # 64 ‘ 
: RT65 >ADDRESS OF NEXT TEST % 
100. >; ITERATION COUNT ¥ 
RCV16 >SCOPE ENTRY POINT t 
X=X+1 


O56000600000020250002222222305222 20035530535 25252555555555255523223250 3) 


SEQ 0049 
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012026 
012032 


012034 
012036 
012040 
012042 


012044 
012050 


012052 


012064 
012066 


012070 


012074 
012100 
012104 
012116 
012112 


22-NOV-77 


004537 
000034 
000017 


000065 
012054 
000144 
012044 
000065 


004537 
000036 
000020 
000240 


000066 
012314 
000012 
012070 
000066 


o00240 
900240 


004737 


012701 
012702 
012703 
010221 
005303 
001375 
012701 
012777 
052777 
050177 
013737 
104490 
000000 
017737 
001406 
005037 
104011 
005077 
000446 
032777 
001002 
104001 
906432 
042777 
052777 


7:57 


004542 


004542 


003724 
001106 


160000 
000020 


ococ0! 
012260 
000060 
167110 
004076 
167072 
001276 
167054 


040000 


100000 
910000 


167134 
167112 
012152 


001274 


167042 


167026 
1©7N20 


. 
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;RECEIVER LINE TEST LINE 16 


RCV16: JSR 5, RCVTST GO TEST RECEIVER LINE 16 


RT6S5: a ;ROUTINE # 65 
RT66 ;ADORESS OF NEXT TEST t 
100 ; ITERATION COUNT * 
RCV17 ; SCOPE ENTRY POINT ¥ 
=X+ 


e222 2959993599999 999999999 95355555552292229 222 22032028222292 229290022 2 22 | 
RECEIVER LINE TEST LINE 17 


RCv1i7: JSR 5,RCVTST ;GO TEST RECEIVER LINE 17 
LINE17 
Y=Y+1 
eo 2005500509098 005005 09500000 090000000009005000900990090099029990099 > dd 9 | 
RT66: 66 . ;ROUTINE # 66 x 
RT67 ;ADOR OF NEXT ROUTINE. x 
10. > ITERATION COUNT x 
RT66~A ; SCOPE ENTRY POINT. x 
=X+1" 


x 
$2229 9 96s 993390059 00959929055952 299250200005 00 005000090 000090 0222208 2» | 
NOP 


NOP 
-TEST THAT NEX BIT (CSR BIT 14) SETS WHEN THE TRANSMITTER REFERENCES 
»NON-EXISTANT MEMORY, THE CORRESPONDING BAR BIT CLEARS 
;AND THAT AN INTERRUPT OCCURS. ALL LINES ARE USED FOR THE TEST. 
RTooA: JSP 7, TIMER >GO CALCULATE MACINE TIME TO TRANSMIT 
7 ONE CHARACTER 


MoV aCAT. %1 >GET CAT ADDRESS 
Mov #160000, %2 ; GE" A NON-EX!ISTANT ADDRESS 
MoV #16 .%3 GET COUNTER 
18: MoV 42, (1)+ ;LOAD THE CURRENT ADDRESS 
DEC %3 >; TABLE WITH NON-EXISTANT 
BNE 1$ ; ADDRESSES 
MOV aLBiTd. %1 *GET LINE BIT 
Mov #6%, OXMTINT >LOAD TRANSMITTER INT. VECTOR 
2s BIS #60. aCSR :SET EXTENDED ADDRESS BITS 
Bis %1, @BAR > START TRANSMITTER 
MOV TIME14, 38 ;LOAD DELAY TIME TO 
DELAY. >DELAY FOR 174TH OF A CHARACTER 
3$ OPEN ;TQ RESPOND TO NEX 
MOV @BAR. RCVDAT GET BAR DATA & TEST 
BEQ 4% >THAT IT 1S CLEAR 
CLR XMTDAT ; 
ERROR1 /ERROR'BAR BIT DIG NOT CLEAP 
CLR OBAR 
BR 7% /GO TO SCOPE 
ob) BiT aBiT14. aCSP > TEST THAT NEX BIT IS SET 
BNE 5$ BRANCH IF SET 
ERROR >ERROR! NEX BIT FAILED TO SET 
BR 7$ -GO TO SCOPE 
cs BIC #BIT1S. aCSR »CLEAR TRANSMITTER READY FLAG 
BIS #BIT12. dCSR />SET TRANSMITTER !'E B!T 


SEQ 0050 


nM 4 
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DZDMAC. Pil 22-NOV-77 17:57 SEQ 0051 
012230 005037 177776 CLR a#PSW ;ALLOW INTERRUPTS 
012234 000240 NOP 
012236 012737 OO00340 177776 MOV #PRTY7, d#PSW +LOCK OUT INTERRUPTS 
012244 010137 001276 MoV %1, XMTDAT ;LOAD LINE THAT FAILED 
012250 005037 001274 CLR RCVDAT 
012254 104011 ERROR1 ERROR! NEX FAILED TO CAUSE INTERRUPT 
+ TYPEOUT SHOWS LINE # THAT FAILED 

012256 000410 BR 7$ GC TO SCOPE 
012260 005077 166764 6S: CLR acSR 
012264 012737 OOO340 177776 MOV RPRTY7, d#PSW +LOCK OUT INTERRUPTS 
C12272 022626 CMP (6)+, (6)+ ;ADJUST STACK PTR 
012274 006301 ASL %1 SHIFT LINE BIT 
012276 102314 BCC 2$ +DO NEXT LINE 
012300 013737 OO4074 12310 7%: MOV TIME1, 8$ ;WAIT FOR TRANSMITTER TO RUN 
012306 104400 DELAY >TO COMPLETION BEFORE 
012310 000000 8S: OPEN EXITING TEST 
G12312 104006 SCOPE + SCOPE 

Pe $2229 9292993 5959899 955999090598 02? >> 9 > 92229239099 920089 098 0220097 028 8d | 
012314 000067 RT6?: 67 ;ROUTINE & 67 x 
012316 012424 RT? »RADOR OF NEXT ROUTINE. x 
012320 000012 10. > ITERATION COUNT x 
Q12322 012324 RT67—A >SCOPE ENTRY POINT. ' 


00006” X=X+1 
22 $3992 o% ¢ do 99928 oo 92 08d 0 8 9 09 98 9 oS 0 8 D0 0 2 0 0 0 0 3 0 0 9 5209 0 0 8 0 9 200 993999009 58 | 


; TEST THAT NEX BIT SETS IF THE DM11 TABLES ARE IN NON-EXISTANT CORE 


012324 012777 160000 166724 PTe7A: MOV #160000, 2BASREG ;SET BASE REGISTER TO NON=EXISTANT ADRS 

012332 012737 012414 000004 MOV #43, OFERRVEC SET TIME OUT TRAP VECTOR 

012340 065737 160000 TST a 160000 CHECK THAT ADDRESS TIMES OUT 

012344 G13737 Q04076 012262 MoV TIME 14, 1% >GET TIME TO TRANSMIT 174 CHAR 

012352 052777 O00001 166672 BIS #LB1TO. dBAR START TO TRANSMIT ON LINE 0 

012360 104400 DELAY ;DELAY 174TH OF A CHARACTER 

012362 000000 1S: OPEN ; TIME 

012364 005077 166662 CLR aBAR > STOP TRANSMITTER 

012370 022777 040060 i66652 CMP #BiT14+60,aCSR ~=TEST THAT ONLY NEX IS SET 

012376 001401 BEG 2$ 

012400 104001 ERROR ERROR! EITHER NEX FALED TO SET 

-OR OTHER BITS SET 

012402 013737 004074 012412 2%: MoV TIME 1, 3% >DELAY 1 CHARACTER TIME TO ALLOW 

012410 104400 DELAY >; TRANSMITTER TO RUN TO 

612412 000000 3S: OPEN ; COMPLETION 

012414 012737 O00006 900004 4S: MOV RERRVEC +2, DRERRVEC ;RESTORE TIME OUT TRAP 

012422 104006 SCOPE 
IUD IDIS OIG III IE 

012424 900070 RT70: 70 *ROUTINE # 70 * 

012426 012546 RT71 ;ADOR OF NEXT ROUTINE. * 

012430 000144 100. > ITERATION COUNT x 

012432 012434 RT70A SCOPE ENTRY POINT. x 

009070 


X=X+1 
Sao ooo ooo oO OOOO IO IOIOIOIOIOIOIIOIOOIOIOIOIIOIIOIIO OI III 


; TEST THAT WHEN THE GO BIT 1S CLEAR THAT THE RECEIVERS DO NOT RECEIVE 
:DATA. EACH LINE IN TURN 1S TRANSMITTED ON, AND WHEN TEN CHARACTERS 
SHAVE BEEN TRANSMITTED THE RECEIVER DONE FLAG 1S TESTED. IF IT IS SET 
AN ERROR 1S INDICATED ON THE LINE DATA WAS RECEIVED ON 

012434 005037 016412 RT7GA: CLR LINE >SET U2 TO TRANSMIT 





alten anima, 
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OZOMAC.P11 | 22-NOV-77 17:57 SEQ 0052 | 
012440 004537 005754 15: JSR 5, a#XMITD 510. CHARACTERS 
012444 177766 -10. ;0N EACH LINE 
012446 005777 166576 TST acsr ;WAIT FOR 10. CHARACTERS 
012452 100375 BPL - >TO BE TRANSMITTED 
012454 042777 100000 166566 BIC #100000, acsR 
012462 105777 166562 TSTB = CSR ; TEST RECEIVER DONE FLAG 
012466 100010 BPL 
012470 013737 001272 001274 Mov LINBIT,RCVDAT  ;=GET LINE BIT OF ACTIVE LINE 
012476 013737 001272 001276 MOV LINBIT. XMTDAT ; THAT ERROR OCCURED ON 
012504 104011 ERRORI SERROR' DATA WAS RECEIVED ON LINE INDICATED 
012506 000413 BR us ;GO TO SCOPE 
012510 062737 000002 016412 25: ADD #2. LINE :SET UP NEXT LINE NUMBER 
012616 006337 001272 ASL LINBIT >GET READY TO TRANSMIT ON NEXT LINE 
012522 103346 BCC 1% :GO TRANSMIT ON NEXT LINE 
012524 013737 OO04074 012534 MoV TIME, 3$ | 
012532 104400 DELAY ;DELAY 1 CHARACTER 
012534 900000 3S. 0 ; TIME BEFORE ENTERING NEXT TEST | 
012536 104006 4S. ; SCOPE 
UTTTIVITTERTTITTTETTLETITTTTTTTTT TTT TT ETE T TET TTLTTETT TELE ETT T LETT TTT | 
012540 9000071 RT? 1. rt ;ROUTINE # 71 x | 
012542 012734 RT72 [ADDR OF NEXT ROUTINE. x 
012544 900024 20. ; ITERATION COUNT 1 
012546 012550 RT7IA > SCOPE ENTRY POINT. ' 
000071 K=¥+1 
S550 505505905000 000 0000050050 000000 000900000000 0000990099098999989 98 8d ® | 
-TEST THAT CURRENT ADDRESS INCREMENTS PROPERLY WHEN A CHAR- 
“ACTER IS TRANSMITTED. LINE 0 1S USED FOR THE TEST. 
012550 005000 RT71A: CLR x0 ;RO=CURRENT ADRS AFTER TRANSMISSION 
012552 010001 18. Mow “0, %4 ;RO=CURRENT ADDRESS BEFORE TRANSMISSION 
012554 005201 INC “1 ;AND R1=CURRENT ADDRESS AFTER TRANSMISSION 
012556 012737 012720 oo0004 MOV #35, AFERRVEC ;SET UP PROCESSOR 
012564 012737 000340 d00006 MOV #PRTY7, ABERRVEC+2 > TIME OUT TRAP 
012572 012777 001106 166456 MOV SCAT. aBASREG | ;SET UP BASE REGISTER 
012600 010037 001106 Mov %0, CAT [LOAD CURRENT ADDRESS TABLE (LINE 0) 
012604 105710 TSTB (0) ;DOES MEMORY EXIST? 
012606 012737 177776 001146 MOV 8-2, UCT >SET CHAR. COUNT TO TRANSMIT 1 CHAR 
012614 012777 O00005 166426 MOV #5, acSR :SET MAINT & GO BITS 
012622 012777 000001 166422 MoV #LB1TO, aBaR ; TRANSMIT ON LINE O 
012630 105777 166414 TSTB = ACS SWAIT FOR THE RECEIVER 
012634 100375 BPL 24 >TO RECEIVE FIRST CHARACTER 
012636 042777 000200 166404 BIC #200. acsR :CLEAR RECEIVER DONE FLAG 
012644 105777 166400 TSTB = CS ;WAIT FOR RECEIVER TO RECEIVE 
012650 100375 BPL a ; THE SECOND CHARACTER 
012652 023701 001106 CMP CAT. %4 “TEST THAT CURRENT ADRS 
; INCREMENTED PROPERLY 
012656 001413 BEQ 23 
012660 010137 001276 MoV %1, XMTDAT :GET COMPUTED RESULT 
012664 013737 001106 00127 stall CAT, RCYDAT ;GET ACTUAL RESULT 
012672 104011 ERRORI SERROR! CURRENT ADDRESS DID NOT 
012674 032777 O4000D 166200 BIT #B1T14, aSWR : INCREMENT PROPERLY 
012702 001323 BNE 15 ;BRANCH IF SCOPE SWITCH IS SET 
012704 00405 BR 35 >GO TO EXIT 
012706 005701 28 TST x1 
012710 001403 BEQ 35 
012712 000261 SEC 
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012714 
012716 
012720 
012726 
012732 


012734 
012736 
012740 
012742 


012744 
C12746 
012750 
012756 
012764 
012772 
013000 
012004 
013006 
013012 
013014 
013020 
013024 
013032 
013040 
013046 
013054 
013056 


013060 
013062 
013066 
013070 
013072 


013074 
013074 


013102 
013104 
013106 
013110 
013114 
013122 
013130 
013136 
013144 
013150 
013152 
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006100 
100715 
012737 
005037 
104006 


000072 
013300 
000024 
012744 
000072 


005000 
000005 
016037 
012777 
012737 
012777 
005777 
100375 
105777 
100375 
005077 
005037 
113737 
117037 
043737 
123737 
001402 
104011 


000464 


105777 


7: §7 


000006 
000006 


013234 
000C05 
177777 
000001 
166244 


166236 


166230 
001274 
001306 
013234 
001300 
001274 


nocote 


013234 
013234 
000005 
177777 
00000! 
160100 


166072 


000004 


001166 
166264 
001146 
166252 


801274 


001276 


060004 


001106 
166120 
001146 
166100 
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%0 


1$ 
WERRVEC+2, OHERRVEC 


OFERRVEC+2 


RESTORE TIME OUT TRAP 


SCOPE ; SCOPE 
+ AXKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
R172: 72 UTINE # 72 & 


SACDR OF NEXT ROUTINE 
ITERATION COUNT 
[SCOPE ENTRY POINT 


x 
x 
x 


eo % 9% 3 399999999 0999995 9959535559 9292950 % 092020595992 02 909 000292020 00 8 8 8 8 | 


; TEST THAT DATA CAN BE TRANSMITTED FROM ALL AVAILABLE CORE 
+LINE OQ 1S USED FOR THE TEST AND ONLY ONE WORD |S TRANSMITTED 


;AT ATI 
RT72A—A: 


1$: 


> (CAT)-1 
B 


2S: 


4S, 


ME 


1S THE 
R 


CMP 
BEQ 
TST 
BR 


%0 


AREA(O), CAT 
#5, 0CSR 
#-1,WCT 
#LBiTO. dBAR 
acsr 


TUMTAB. RCVDAT 
@AREA(O), XMTDAT 
CARMSK., XMTDAT 
RCVDAT, XMTDAT 
2$ 


MEMORY LOCATION 
6 


#53, JRERRVEC 


“1 

“1 

(0)+ 

%1, OAREA(O) 
AREA(O), CAT 
#5, dCSR 
#-1-WCT 

#LB ITO. dBAR 
acsr 


-4 
acsP 


CLEAR INDEX REGISTER 


;LOAD CURRENT ADDRESS 
+SET MAINT & GO BITS 


;SET UP CHAR COUNT TO TRANSMIT 1 CHAP. 


; TRANSMIT CHAR ON LINE O 
;WAIT FOR THE TRANSMITTER 
>TO TRANSMIT THE CHARACTER 
> TEST FOR DONE 


CLEAR ALL FLAGS 


GET RECEIVED CHARACTER 

GET TRANSMITTED CHARACTER 
+CLEAR NON-TRANSMITTED BITS 
COMPARE CHARACTERS 

BRANCH IF VALID COMPARISON 
> ERROR'DATA COMPARISON ERROR 
WHERE THE DATA WAS TRANSMITTED FROM 
>GO TO EXIT 

*HAS FIRST 4K BEEN TESTED 
>BRANCH IF IT HAS 

> INCREMENT |NDEX 

;GO REPEAT TEST 


*BEGIN TESTING ABOVE 4K 

SET TIME OUT TRAP TO EXIT 

> TEST IF MEMORY TIMES OUT 
>SET UP DATA IDENTIFIER 

> INCREMENT DATA IDENTIFIER 

> INCREMENT !NDEX 

>LOAD IDENTIFIER INTO MEMORY’ 
;LOAD CURRENT ADDRESS 

SET MAINT & GO BITS 


SET UP CHAR COUNT TO TRANSMIT 1 CHAR 


> TRANSMIT ON LINE 0 

/WAIT FOR THE TRANSMITTER TO 
> TRANSMIT THE CHARACTER 

> TEST FOR CHARACTER DONE 








-EQ 0053 | 
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013156 
013160 
013164 
013172 
013200 
013206 
013214 
013216 
013220 
013222 
013224 
013232 


013234 
013236 
013240 
013242 
013244 
013246 
013250 


013252 
013254 
013256 
013260 
013262 
013264 
013266 
013270 
013272 
013274 
013276 


012300 
013302 
013304 
013306 


013310 
013314 
013322 
013326 
013334 
013340 
013342 
013346 
013350 
013356 
013362 
013370 
013372 
013376 
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100375 
005077 
113737 
117037 
04 3737 
123737 
001733 
104011 
000404 
022626 
012737 
104006 


000000 
005252 
012525 
017777 
020000 
026314 
031463 


037477 
040000 
057477 
060000 
077477 
100000 
117477 
120000 
137477 
140000 
173000 


000073 
013514 
000012 
013310 
020073 


005037 
012777 
005037 
013737 
004537 
177634 
105777 
100375 
042777 
005237 
023727 
001416 
005777 
100002 


: 5? 


166064 
001306 
013234 
001300 
901274 


000006 


016412 
000001 
001274 
016412 
605754 


165702 
000200 
001274 
001274 


165652 


001274 
001276 
001276 
001276 


000004 


165726 
001276 


165672 


000144 
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55: 


65: 
, MEMORY 
ARER: 


ASK. 


X=X+1 
SOOO IIOIIIOIIDIDIDIIDIDISIIGOIDIOIOIISIDIOIDIO IDOI IIS IOI 


. = 
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BPL hee | 

CLR acsr 

MOVB TUMTAB,.RCVOAT ;GET THE RECEIVED CHARACTER 

MOVB O@AREA(O), XMTDAT ;GET THE TRANSMITTEC CHARACTER 

BIC CARMSK, XMTDAT ;CLEAR NON-TRANSMITTED BITS 
CMPB RCVDAT, XMTDAT ; COMPARE CHARACTERS 

BEQ 4$ ;BRANCH IF VALID COMPARISON 
ERROR 1 ;ERROR'DATA COMPARISON ERROR NUMBER 
R 6$ IN S/B GIVES MEMORY LOCATION (SEE TABLE 
POPSP2 ;RESET THE STACK 

MOV #6, OFERRVEC ;RESTORE TIME OUT TRAP 

SCOPE EXIT TEST 

LOCATIONS TRANSMITTED FROM TABLE 

0 FOR DATA IN FIRST 

5252 *4K SEE THE LISTING 

12525 CONTENTS OF THESE LOCATIONS (BYTE) 
17777 1S THE DATA TRANSMITTED 
20000 CONTENTS =1 (IF AVAILABLE) 
26314 ; 2 2 : 

31463 ; “i 3 i 

37477 - us n 

40000 <3 5 si 

57477 sa 6 v2 

60000 _ ? ‘ 

77477 . 10 

100000 ‘ 11 ¥ 

117477 : 12 rs 

120000 - 13 . 

137477 . 14 7 

140000 s 15 ; 

173000 " 16 - 

[Sree eo coo enone sea ek 
73 ROUTINE # 73 x 
RT74 ; RODR OF NEXT ROUTINE 
10. + ITERATION COUNT 
RT73A SCOPE ENTRY POINT. 

=X+ 


; TEST THAT THE TRANSMITTER CAN TRANSMIT 100. CHARACTERS BEFORE SETTING 
>THE READY BIT (CSR 15),AND CLEARING THE BAR BIT 


RT73A: 
18. 


CLR 


@eL INE. XMTDAT 


5, d#XniTO 
acSR 


2$ 
#BIT7, dCSR 
RCVDAT 


RCVDAT, #100. 
4§ 


acsRr 
3% 


>SET THE GO BIT 


*>GET LINE NUMBER (x2) 

> TRANSMIT 100. CHARACTERS 

>ON LINE AS SPECIFIED BY LINE 
>WAIT FOR THE RECEIVER 

>TO RECEIVE ONE CHARACTER 
>CLEAR CHAR. DONE FLAG 

> INCREMENT CHAR. RCVO COUNT 
*HAVE 100. CHARS. BEEN RPCVD 


> TEST READY FLAG 
/GO TEST BAR 


SEQ 0054 
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DZ0MAC P11 
013400 
013402 


013404 
013412 
013414 
013422 


013424 
013426 
013434 
012436 
012440 
013444 
013446 
013450 
013452 
013456 
013460 
013466 
013472 
013474 
013476 
013504 
012510 
013512 


013514 
013516 
013520 
013522 


017524 
013520 
013534 
013536 
013540 
013542 
013546 
013554 
013560 
013564 
013572 
013600 
013606 
013612 
013614 
013622 
013626 


104011 
000443 


023777 
001753 
017737 
104011 


3004 32 
013737 
104400 
000000 
005777 
100402 
104001 
000420 
005777 
001407 
017737 
005037 
104011 
000406 
062737 
006337 
103301 
104006 


000074 
013702 
000012 
013524 
000074 


012701 


005237 


001272 
165632 


004076 


165504 


16574 


165566 
001276 


NOo0ns 
001272 


001306 
000100 


001306 
Co0004 
001276 
001274 
177677 
000001 
000001 
1654 36 


000200 
001274 
001276 


165640 
001276 


013436 


OO1274 


N16412 


165474 


001146 
165450 
165444 


165426 


MACY11 30(1046) 
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;ERROR'READY BIT SET TOO SOON 


ERROR 1 
; TYPEOUT SHOWS HOW MANY CHARS WERE RECEIVED WHEN READY SET AND THE LINE # (X2) 
BR 8$ *GO TO EXIT 


35: CMP 


d#L INBIT, dBAR 
2$ 


OBAR, XMTDAT 


; TEST THAT BAR BIT !S SET 
+>BRANCH IF SET 

+GET BAR CONTENTS 

ERROR! BAR BIT CLEARED TO SOON 


OR1 
; TYPEOUT SHOWS THE BAR CONTENTS AND HOW MANY CHARS WERE RECEIVED WHEN BAP FAILED 
en ane HAS THE CORRECT BAR CONTENTS 


8s ;EXIT TEST 
4S: MOV TIME14, 5% ;DELAY 174 CHARACTER TIME 
DELAY ;TO ALLOW TRANSMITTER TO FINISH 
5S: OPEN 
it aC SP ; TEST READY FLAG (SHOULD BE SET) 
BMI 6$ ;GO TEST BAR 
ERROR >ERROR! READY FLAG FAILED TO SET 
BR 8s ;GO TO EXIT 
0: TST aBAR > TEST THAT BAR BIT IS CLEAR 
BEQ 7$ ,GO TO 7% IF CLEAR 
MOV QbAR, RCVDAT 
CLR XMTDAT 
ERROR1 ;EPROR!' BAP BIT FAILED TO CLEAR 
BR 83% 
78: ACD #2, del INE 
ASL a*LINBIT 
BCC 1$ 
8$ SCOPE 
2 >t gic tc a aia Am a a ak cance tema tteay 
RT7y. 74 ROUTINE # 74 x 
RT7S > ADOR OF NEXT ROUTINE x 
10. > ITERATION CQUNT > 
RT74A : SCOPE ENTRY POINT. x 
X=X+1 


io $02055500000005000050000905299909 9992050992090 995352'955923392935559925 3 | 


> TEST THAT THE TUMBLE TABLE POINTER INCREMENTS PROPERLY AND 


>RETURNS TO THE BEGINNING AFTER 64 
>LINE O IS USED FOR THE TEST. 


RT74RA: 
1%: CLR 


MOV 


#TUMTAB. %1 
#64. et) 


(1)+ 
%2 


1$ 

& TUMTAB. %1 
#B1T2, dCSR 
XMTDAT 
RCVDAT 
#-65. -WCT 
#B ITO, dCSR 
#LB1ITO- dBAR 
acsr 
2$ 
#BIT?7, 
RCVDAT 
XMTOAT 


acSr 


CHARACTERS HAVE BEEN PECEIVED 


>CLEAP THE 
-TUMBLE TABLE 


SET MAINT BIT & CLEAP GO BIT 


;SET UP TO TRANSMIT 65 CHAPACTERS 
>SET THE GO BIT 

> TRANSMIT ON LINE 0 

;WAIT FOR CHAR. DONE FLAG 


CLEAR CHAR. DONE FLAG 
; INCREMENT CHARACTERS 
“RECEIVED COUNT 


SEQ 0055 
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OZDMAC. P11 


C13632 
013634 
013636 


013640 
013642 
013644 
013652 
013654 
013660 
013662 
013666 
013670 
013674 
012676 
012700 


013702 
013704 
013706 
013710 


013712 
013716 


013720 
013722 
013724 
013726 


013730 
UIST 34 


013736 
013740 
013742 
013744 


013746 
013752 


013754 
013756 
013760 
013762 


005711 
100402 
104011 


000417 
005021 
023727 
001355 
005777 
100375 
105777 
100375 
00&737 
100401 
104001 
104006 
o0c000 
000000 


000075 
013720 
000144 
013712 
000075 


004537 
000001 
000001 


000076 
013736 
000144 
013730 
000076 


004537 
000002 
000002 


000077 
013754 
000144 
013746 
000077 


004537 
000004 
000003 


000100 
013772 
000144 
013764 


001276 000100 
165370 
165362 
001306 


005164 


005164 


gE 5 
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SEQ 0056 | 


TST (1) ; TEST TT ENTRY FOR VALID 
BMI 3$ ;DATA ENTRY 
ERROR1 ; ERROR! NO VALID DATA ENTRY 
; TYPEOUT SHOWS @ OF CHARS. RCVD WHEN ERROR OCCURED 
BR 4§ ;GO TO SCOPE 
35: CLR (1)+ ; CLEAR TT ENTRY 
ae alia oma ;HAVE 64. CHARACTERS BEEN RECEIVED 
N 
TST acsR ;WAIT FOR THE LAST CHARACTER 
BPL | ;TO BE TRANSMITTED 
Lg acsr ; TEST FOR DONE 
L Joh 
TST TUMTAB ; TEST FIRST TT ENTRY 
BMI 4% ;FOR VALID DATA 
ERROR 7 ERROR! POINTER DID NOT RETURN 
4S: SCOPE > SCOPE 
A=0 
Y=0 
Sx o0oQooo ooo igo ogg gg Ig IgIOISIOIDIDIOIDIOIIDIOIDIOIIDIOIOIOOIOIOIOIIIIAII IOI OI 
PT75: 75 >ROUTINE # 75 x 
RT76 ; ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT ¥ 
BRKO ; SCOPE ENTRY POINT x 
X=X+1 


00OoO OOOO GOOOIOIDIOIDIDIIOIOOIOI IIIS DIO III 
>BREAK TEST ON LINE O. 


BRKO: JSR 5,BRKTST. ;GO DO BREAK TEST 
LBITO ;ON LINE O 
Y=Y+1 
Ss y}0ooooogoiojofoio igi igiggigg gg ggg ggg OI OIOIDIIICOIOODIOOI ODIO OOOO 
R176: 76 ;ROUTINE # 76 x 
RT77 ;ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
BRK1 ;SCOPE ENTRY POINT x 


X=¥%+1 
S00OogOOO III IOI IIIIGI IOI IID III 
BREAK TEST ON LINE 1 


BRK 1: JSR 5, BRKTST ;GO DO BREAK TEST 
LBIT1 >;ON LINE 1 
Y=Y+1 

Soo oooioojiojojiojoigigzgig gj gpg IOI OOI IOI IOIDIOIDIOIIIOIOI SIDI IIOIIOIIOIIIO 

R177: ted ;ROUTINE & 77 | 
RT100 ;ADDRESS OF NEXf TEST | 
100. > ITERATION COUNT x 
BRK2 > SCOPE ENTRY POINT x 
X=X+1 


ooo oop og gop gO IIIS ODODE ISIS 
>BREAK TEST ON LINE 2 


BRK2: JSR 5, BRKTST >GO DO BREAK TEST 
LBIT2 ;ON LINE 2 
YzY¥e1 
So0oloojojojojgjogi ogg ggg Ip OIIDIOIOIOIDIDIDIOIOIIOIOIOIIOD IOI IAI IIIA IAI 
RT100: 100 ;ROUTINE # 100 ¥ 
RT101 ;ADORESS OF NEXT TEST ' 
100. > ITERATION CQUNT t 
BRK >SCOPE ENTRY POINT ¥ 
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013764 
013770 


013772 
013774 
013776 
014000 


014002 
014006 


014010 
014012 
014014 
014016 


014020 
014024 


014026 
014030 
014032 
014034 


014036 
014042 


014044 
014046 
014050 
014052 


014054 
014060 


014062 
014064 
014066 
014070 
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000100 


004537 
000010 
000004 


000101 
014010 
000144 
014002 
000101 


004537 
000020 
o0c00s 


000102 
014026 
000144 
0149020 
000102 


004537 
000040 
000006 


000103 
014044 
000144 
014036 
000103 


004537 
000100 
000007 


000104 
014062 
000144 
014054 
000104 


004537 
000200 
000010 


000105 
014100 
006144 
014072 
000105 


005164 


005164 


005164 


005164 


B05104 


F § 
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X=X+1 
eo 90095005955 00000050000000000020006050005900000005050595000008 9909 > 0 > 9 8 | 
>BREAK TEST ON LINE 3 


BRK3: JSR 5.BRKTST +GO DO BREAK TEST 
nab ;ON LINE 3 
=Y+ 

Pe oo $999 09999095059 9090909500500950555909 050009055999 99 909999 000599900903: 

RT101: 101 ;RCUTINE # 101 x 
RT102 ; ADDRESS OF NEXT TEST ¥ 
100. >; ITERATION COUNT x 
BRKY ;SCOPE ENTRY POINT x 
X=X+1 


Peo % % 2 $3 oo 9 39999998989 9958 5959999922233 939 0922200038229 9 2000009909 0028 8 8 | 
»BREAK TEST ON LINE 4. 


BRK: JSR 5,BRKTST ;GO DO BREAK TEST 
LBIT4 ;ON LINE 4 
Y=Y+1 

ee en, ae eee ee 

PT102: 102 /ROUTINE # 102 
RT103 ; ADDRESS OF NEXT TEST ; 
100. > 1 TERATION COUNT x 
BRKS ,SCOPE ENTRY POINT x 
X=X+] 


22222229029 999 9550999959 9559939 950029022 92950009 5935203035 3002805 0208 2 2 | 
BREAK TEST ON LINE 5 


BRKS: JSR 5. BRKTST ;GO DO BREAK TEST 
LBITS >ON LINE 5 
Y=Y*1 
OS9290000500000000000000060000009200000090000295093990990009258 9990299 s 8: 
eTiIcGs 103 ;ROUTINE # 103 x 
RT104 ;ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
BRK6 >; SCOPE ENTRY POINT t 
X=X¢1 


002 000052000099520008555938535395525929253070 535590535505 2550722595022 2 8 | 
/BREAK TEST ON LINE 6 


BRK6 JSR 5.BRKTST ;GO DO BREAK TEST 
LBIT6é ;ON LiNE 6 
YsY¥#1 

00290000000 0000000050005 0000009900000 0009906592923250553592933302 8 2 > 0238 | 

PT104- 104% >ROUTINE # 104 x 
RT105 :ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
BRK? > SCOPE ENTRY POINT x 
K=X+1 


225000099 00000058500505555 50050 e bette tte SECTS ESTEE ESSE SECRETS E22 2 2 2 
-BREAK TEST ON LINE 7 


BRR?. JSR 5,BRKTST ;GO DO BREAK TEST 
LBIT? >ON LINE 7 
Y=Y+1 

$000 0000060000000002000000000000000000000000000500250235050058250292952 35 8 | 

FT105 105 -ROUTINE #& 105 x 
RT106 ;ADDRESS OF NEXT TEST x 
100 > ITERATION COUNT t 
BPK10 >SCOPE ENTRY POINT ‘ 
xox+! 


SEQ 0057 


G 5 
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j MAXKKAAAAAAA AAA AAA AAA AAA AAA AAA AA AA AAA AA AAA AAA AAA AAA AAA AAR EAS 
;BREAK TEST ON LINE 10. 


014072 004537 005164 BRK10: JSR 5, BRKTST ;GO DO BREAK TEST 
014076 000400 LB1T10 ;ON LINE 10 

000011 Y=Y+1 

$959 00555555056550056000000000050505000000000000000 000000085000 02 99208 8 | 

014100 000106 RT106: 106 ;ROUTINE # 106 x 
014102 014116 RT107 ;ACDRESS OF NEXT TEST x 
014104 000144 100. ; ITERATION COUNT ¥ 
014106 014110 BRK11 ; SCOPE ENTRY POINT x 

000106 X=X+] 


299 $9055909560090309003900095559955295 5029592209 9205 9225092939200 0 9208 8 | 
>BREAK TEST ON LINE 11 


014110 004537 005164 BRKi1: JSR 5, BRKTST ;GO DO BREAK TEST 
614114 001000 LBIT11 ;ON LINE 11 

000012 Y=Y+1 

SOOO foigppigig igo ggg OgIgIOIOIIOIOIDIOIOIOIOIDIOIDIOOIDIOOIOOIOODI ODIO OI 

614116 000107 RT107: 107 ;ROUTINE # 107 x 
014120 014134 RT110 ; ADDRESS OF NEXT TEST x 
014122 000144 100. ; \TERATION COUNT x 
014124 014126 BRK12 ;SCOPE ENTRY POINT x 

000107 X=X+1 


J 3000oooggoooiooiogg gpg IOOIOIIOIDIOIOIOIODISIIO OOOO OOOO III 
/BREAK TEST ON LINE 12. 


014126 OO4537 005164 BRK12: JSR 5, BPKTST :GO DO BREAK TEST 
014132 092000 LBIT12 >ON LINE 12 
000013 Y=Y+1 
MOOI III OI III 
014134 0900110 PT110: 110 >ROUTINE # 110 x 
014136 014152 RT111 ADDRESS OF NEXT TEST x 
014140 000144 100. > | TERATION COUNT x 
Oi4i42 O14144 BRK13 >SCOPE ENTRY POINT x 
0001190 X=X+1 
SQ gogo oOo OIIDIDIIIIIDIDIISI IIIT 
>BREAK TEST ON LINE 13. 
014144 004537 905164 BRK13: JSR 5. BRKTST +GO DO BREAK TEST 
614150 004000 LBIT13 7ON LINE 13 
000014 Y=¥+1 
SOOO III III III 
014152 000111 RT1i1: 211 ROUTINE & 111 x 
014154 014170 RT112 >ADDRESS OF NEXT TEST x 
014:5e@ 000144 100. > ITERATION COUNT X 
O14100 014162 BRK14 > SCOPE ENTRY POINT x 
000111 X=X+1 


me o50000000500000000000000000000550200525222'22523555253535552222553522 83) 
/BREAK TEST ON LINE 14. 


014162 004537 05164 BRK14. JSP 5, BRKTST :GO DO BREAK TEST 
014166 010000 LBIT14 >ON LINE 14 
000015 Y=Y+1 
OO50500055550000000000000000000000000000000CC CF OPE Ce P8e 2822225225852 8 | 
014170 000112 PT112: 112 ;ROUTINE # 112 t 
014172 014206 RT113 , ADDRESS OF NEXT TEST t 
014174 000144 100. > ITERATION COUNT x 
014176 014200 BRK15 >SCOPE ENTRY POINT t 
000112 X=X+1 


POCCESSSCCC ECCS CCCP OSS eee eee CCC ORCC COTES CCE ESSERE SESESALE SELES S. 
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D2oMaC Pit 22-NOV-77 17:57 SEQ 0059 
;BREAK TEST ON LINE 15. 
014200 004537 005164 BRK15: JSR 5, BRKTST ;GO DO BREAK TEST 
014204 020000 LBIT15 >ON LINE 15 
000016 Y=Y+1 
2 2999999969009 > 9909900900590 909099 6990999999995 909239 005999290092 2 0089 8 | 
014206 000113 Rritz 13 ;ROUTINE # 113 x 
014210 014224 RT114 ;ADORESS OF NEXT TEST x 
014212 OCO144 100. ; ITERATION COUNT x 
014214 014216 BRK16 > SCOPE ENTRY POINT ¥ 
000113 X=X+1 
O99 0905 090500950009000500090000000050905995090929999 0099909900999 98 088 8 | 
;BREAK TEST ON LINE 16. 
214216 004537 005164 BRK16: JSR 5, BRKTST ;GO DO BREAK TEST 
2114222 040000 LBIT16 ,ON LINE 16 
000017 Y=Y+1 
ee a ee ee eet ee 
-tel24% 900114 PT114. 114 /ROUTINE # 114 
Ci4lle O14242 PT115 > ADDRESS OF NEXT TEST ; 
114220 «6000144 100. > ITERATION COUNT x 
O1s232 O14s34 BRK17 ;SCOPE ENTRY POINT x 
N00114 x=ok+1 
5259500000005 000000005062000000000500000000020590039029559050005590508 90: 
BREAK TEST ON LINE 17 
Or4¥l74 OO4S3° COSines EPRI? JSR 5, 8RKTST ,GO O00 BREAK TEST 
014240 100000 LBITi7 >ON LINE 17 
ocoo2e Y=Y+1 
000000 A=0 
000000 Y=0 
5020000000008 0000005060000500000020600095000000599050002220222959292 095990999309; 
014242 900115 PTL1S 115 >ROUTINE #115 x 
014244 014260 FT116 ;RODRESS OF NEXT TEST ¥ 
014246 O0014%4 100 > ITERATION COUNT ¥ 
014250 014252 DATO >SCOPE ENTRY POINT x 
000115 w=X41 


fg Rape agent hr 7 <a aa et alata at a 
-DATA TEST 100 CHARACTERS LINEO 


O14262 004537 06020 pATO. JSP 5. DATTST GO RUN DATA TEST . 
21425— 620000 LINEC [ON LINED 
900001 Ye+l 
MPovettsititttitistitttirettettisstcsscttististictitsessittettetret sets et sete rt, 
Ji42e0 900116 PTlle §=6116 ROUTINE #116 ‘ 
C142e2 01427 PT117 ;RODRESS OF NEXT TEST x 
jisce4 000144 100 : ITERATION COUNT ‘ 
O142e6 014270 DAT1 SCOPE ENTRY POINT x 
, 000116 K=X¢1 
PUsisitittitiitiiitistsststsestttsttitttet titi eeeest ire sereseeeeeticisetisicis 
CATA TEST 100 CHARACTERS LINE1 
014270 004537 08020 DAT! = JSR 5. DATTST GO RUN DATA TEST 
014274 900002 LINE1 ON LINE! 
000002 Y=Y+1 , 
TUTTI TT TTT Ctisisitisitirtiittititttitsessi ites irtteterterttetertist iri sisel sy, 
014276 000117 PTI17, 117 ROUTINE #117 ‘ 
014300 014214 RT120 ADDRESS OF NEXT TEST x 
014302 000144 100 ITERATION COUNT ‘ 
014304 014306 CATZ SCOPE ENTRY POINT ‘ 


o0o11° voxe! 
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014306 
014312 


014314 
Oissie 
014320 
: 014322 


014324 


014330 


C1w4332 
O14334 
014336 
014740 


O14342 
014346 


014350 
014352 
014354 
014356 


014560 
014364 


014 306 
014370 
014372 
014374 


014376 
014402 


014404 
014406 
014410 
014412 
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004537 
009004 
0000023 


000120 
014332 
000144 
014324 
000120 


004537 
000006 
000004 


000121 
014350 
060144 
014342 
000121 


004537 
000016 
ooco0s 


000122 
014366 
000144 
014360 
000122 


004537 
000012 
020006 


000123 
014404 
000144 
014376 
000123 


004537 
000014 
000007 


000124 
014422 
000144 
014414 
000124 


006020 


000020 


~aS 


nO5e20 


006020 


606020 
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5 MEXKKAAAAA AAA RARE AAA AAA AAA AAA AAA AAA AAA AAR AEE 
DATA TEST 100 CHARACTERS LINEZ 


DAT 2: JSR 5,DATTST ;GO RUN DATA TEST 
eat ;ON LINEZ 
Y=Y+ 

Me oo 090000090000 000905 00000000000000600050000000050005020509 09099099 09 od 0 9 > 0 9 9 0 0 0 | 

RT120: 120 ;ROUTINE #120 
RT121 ;ACORESS OF NEXT TEST | 
100. > ITERATION COUNT 
DAT3 ; SCOPE ENTRY POINT x 
X=X41 


AKA KKA AAA AAA AAA AAA AAA REE 
DATA TEST 100 CHARACTERS LINES 


DATS: JSR 5,DATTST ;GO RUN DATA TEST 
LINE > ON LINES 
Y=Y+1 

2999820000 000000500000000000920000000009000090090050009009009892090 98> > > 00099 >» | 

RTiZi: P21 ;ROUTINE #121 x 
RT122 ; ADDRESS OF NEXT TEST x 
100. > |TERATION COUNT x 
DAT’ > SCOPE ENTRY POINT x 
X=).+1 


OOOO OOOO III IIIS III III 
-DATA TEST !00 CHARACTERS LINEY 


DAT: JSR 5,B0ATTST >GO RUN DATA TEST 
LINEY >ON LINEY 
Y=Y+1 

000000 ogo ooo foioigiooOIOIIDIDIDIOIOIOIDIDIOIDIDIDIOIIOIDIOIOINIIOIOIIDIDIOIIOIGIOII III IK 

RT122. 122 >ROUTINE #122 : x 
RT123 ; ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT > 
DATS >; SCOPE ENTRY POINT x 
X=X+1 


22860 090000092002220209093023052592222505325252255555225 25255932292 2d 22929999 0) 
DATA TEST 100 CHARACTERS LINES 


DATS: JSR 5.DATTST ;GO RUN DATA TEST 
LINES >ON LINES 
Y=Y+1 

$0990 0000000000000000000000000000000000000000000050208 0225895299035 99090 028099 9: 

RT123: 123 >;ROUTINE #123 
RT124 ;ADDRESS OF NEXT TEST x 
100. > LTERATION COUNT ra x 
DAT6 >SCOPE ENTRY POINT x 
X=X+1 


me O9220059009999999990999 05090000553 000 5000s eee tS ESS Sette 8880582252228 2 8888 8 8 | 
>DATA TEST 100 CHARACTERS LINE6 


DATE: JSR 5,DATTST >GO RUN DATA TEST 
LINE6 7 ON LINE® 
Y=Y+1 
5090900000000000000052552533902005209039000007055552275555555522225332522222223) 
RT124: 124 >ROUTINE #124 % 
RT125 ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT & 
DAT? > SCOPE ENTRY POINT i 
=X+1 


MTTTTITTTITTITITTTTTT TTT TTT TTT tite itt itt t iter ii eeeeiiiiiaii titi titi 


SEQ 0060 
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014414 
014420 


014422 
014424 
014426 
014430 


014432 
014436 


014440 
014442 
14444 
014446 


014450 
014454 


014456 
014460 
014462 
014464 


014466 
014472 


O14474 
014476 
014500 
014502 


014504 
014510 


014512 
014514 
014516 
014520 
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004537 
000016 
000010 


000125 
014440 
000144 
014432 
000125 


004537 
000020 
000011 


000126 
014456 
000144 
014450 
000126 


004537 
000022 
000012 


000127 
014474 
000144 
014466 
000127 


004537 
000024 
000013 


000130 
014512 
000144 
014504 
000130 


004537 
000026 
000014 


000131 
014530 
000144 
014522 
006131 


006020 


006020 


006020 


006020 


O0»020 
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DATA TEST 100 CHARACTERS LINE7 


DAT?: JSR 5,DATTST ;GO RUN DATA TEST 
Metre > ON LINE? 
=Y+ 
Fe O09 0909999000555 0000000000000000000000000000000000000299909998 099909900990 F2 8 8 8 | 
RT125: 125 ;ROUTINE #125 x 
RT126 ;ADORESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
DAT10O ;SCOPE ENTRY POINT x 
X=X+1 


eo 2 9% 9999939 09999900 090999959099 959 9222999502 2029530209 29099) 2 222925292222 8 2 8 > > 2 | 
*DATA TEST 100 CHARACTERS LINE10 


DAT10O: JSR 5,DATTST >GO RUN DATA TEST 
td 7 ON LINE10 
Y+1 
ey taal maint mat arin ger mm On Nae > aaa ct tne airtime nice at 
RT126: 126 ;ROUTINE #126 
RT127 ADDRESS OF NEXT TEST : 
100. ; ITERATION COUNT * 
DAT11 + SCOPE ENTRY POINT + 
X=X+1 


2299229999999 6905999999999 5 9929999990005 90 2990295033002 92 0592555500892 2 22228 8 | 
DATA TEST 100 CHARACTERS LINE11 


DAT11: JSR 5, D.ATTST ;GO RUN DATA TEST 
LINE11 >ON LINE11 
YsY¥+41 

SOOO OOOO ooo OIOIOIOIOIOIDIDIIDIOIIOIIDIOIDIDIDIOIIOIIOIDIIIDIIG ODIO 

RTiZ?:. 1zZ7 ;ROUTINE #127 x 
RT130 ;ADORESS OF NEXT TEST x 
100. >; ITERATION COUNT x 
DAT12 ; SCOPE ENTRY POINT x 
X=X+1 


Sago ooo oo IOI III ISIE 
DATA TEST 100 CHARACTERS LINE12 


DAT12: JSR 5,DATTST ;GO RUN DATA TEST 
LINE12 ;ON LINE12 
Y=Y+1 

SOOO Oooo ooo ooo IO OIIIOIOIOIOIOIDIDIIDIDIOI IOI IOI III III IOI IO 

RT130: 130° >ROUTINE #130 x 
RT131 ;AQDRESS OF NEXT TEST x 
100. > ITERATION COUNT x 
DAT13 >;SCOPE ENTRY POINT x 
X=X+1 


MOOI IIOIIOIIIIIIOIIIIOIOIDIDIIIISIIOIOII III III 
>DATA TEST 100 CHARACTERS LINE13 


DAT13: JSR 5,DATTST >;GO RUN DATA TEST 
LINE13 >ON LINE13 
Y=Y+1 

OOOO OOOO IOI II IIIS III III 

RTi31: 131 >ROUTINE #131 t 
RT132 ;ADDRESS OF NEXT TEST x 
100. > ITERATION COUNT # 
DAT14 ; SCOPE ENTRY POINT % 
X=X+1 


mOs0000000006000000090000999200929899905000220220255525555255555555522352255523 3: 
/DATR TEST 1NO CHARACTERS LINE14 


SEQ 0061 


atiaeenicciaiiniabainiaasiteie 
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014522 
014526 


014530 
014532 
014534 
014536 


014540 
014544 


14546 


014550. 
014652 


014554 


014556 
014562 


014564 
014566 
014570 
014572 


014574 
014600 


014602 
014604 
014606 
O146810 


014612 
014616 
014622 
014624 
014626 


22-NOV-77 17:57 


004537 
000030 
000015 


000132 
014546 
000144 
014540 
000132 


004537 
000032 
000016 


000133 
014564 
000144 
014556 
000133 


004537 
000034 
000017 


000134 
014602 
000144 
014574 
000134 


004537 
000036 
00U020 


000135 
015202 
000144 
014612 
000135 


005037 
004537 
001306 
001307 
000177 


006020 


006020 


006020 


006020 


001206 
005732 
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DAT14: JSR 5, DATTST ;GO RUN DATA TEST 
LINETS ;ON LINE14 
=Y+ 
O99 55050 50565055005000060050000000000005000000000050000009909552059 090929 > 22> > 9: 
RTisz: 32 ;ROUTINE #132 x 
RT133 ; ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
tts ; SCOPE ENTRY POINT x 
X=X+1 


$9099 0255005906095095000055095095355 9255290552252 228 2508902502 > 920 00> 0008 9 > 0 02 8 | 
DATA TEST 100 CHARACTERS LINE15 


DAT15: JSR 5,DATTST ;GO RUN DATA TEST 
LiNE15 >ON LINE15 
Y=Y+1 

S000 Ooo ooo OIGIDIOISISIOISIDIOIOIGIOIIGIOIOIIOIOIDIIOISIOIOIOIOIOIIOIOIIOIIOISIIDISIIDINIOIOOIIIOOIIO IOI. 

RT133: 133 ;ROUTINE #133 x 
RT134 ; ADDRESS OF NEXT TEST x 
100. ; ITERATION COUNT x 
DAT16 ; SCOPE ENTRY POINT x 
X=X+1 


229300560000500200000000002000502550025'22552223529052222 9222599209229 9 0999 009 | 
DATA TEST 100 CHARACTERS LINE16 


CAT16: JSR 5,0ATTST ;GO RUN DATA TEST 
LINE16 ;ON LINE16 
Y=Y+1 
Sooo oooiooojogpiogoio gg IIOIIIOIIIOIOIOIOIOISIOIDIOIOIOISIOIIOIIOIOIOIDIOOIDIOIIOIOIOIOIIA OOOO ISOC OO IO In 
PT134 134 ;ROUTINE #134 x 
‘ RT135 ;ADORESS OF NEXT TEST x 
100. > ITERATION COUNT x 
DAT17 ;SCOPE ENTRY POINT x 
X=X+1 


SOOO OOOO IOIOIOIIIOIOIOIOIOIOIIIIO IDOI OID ISIS IOI 
»DATA TEST 100 CHARACTERS LINE17 


DAT17: JSR 5,DATTST ;GO RUN DATA TEST 
LINE 17 >ON LINE17 
Y=Y+1 

Sa}ogooooogooigpigio too afgiggiga gpg OIgIOIIOIIDIOIIDIOIIOIOIOIOIDIIIOIII IOI OOOO 

RT135: 135 ;ROUTINE # 135 ¥ 
RT136 ;ADDR OF NEXT ROUTINE. x 
100. ; ITERATION COUNT x 
RT135A >; SCOPE ENTRY POINT. 
X=X+1 


go oO oOo obo OOOO OSI IDOSII III 


- TEST THAT DATA (ALL 1'S) CAN BE TRANSMITTED ON LINES SIMULTANEOUSLY 
hits FOLLOWING TESTS ARE PERFORMED: 

THERE ARE 16. DATA ENTRIES 

THERE ISN'T A 17TH ENTRY 

DATA RECEIVED IS CORRECT 

ONE DATA ENTRY PER LINE 


PTI3SA: CLR TUMNTAB > CLEAR THE 
JSR 5, BMOVE ; TUMBLE 
TUMTAB , TABLE 
TUMTAB +1 > (200 
177 SENTRIES! 


SEQ 0062 
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DZDMAC P11 22-NOV-77 17:57 SEQ 0063 
014630 012737 177777 016564 MOV #-1, OUTBUF ;LOAD CHAR INTO OUTPUT BUFFER 
014636 005000 CLR %0 SET RO = LINE O 
014640 012737 000001 001272 MOV #LBITO.LINBIT~S ;GET LINE BIT 
014646 012777 OO0001 164374 MOV #8170, dCSR SET THE GO BIT 
014654 010037 016412 1$: MOV %0, LINE +GET LINE NUMBER 
014660 004537 005754 JSR 5, XMITO + TRANSMIT 1 CHAR. 

014664 177777 vd, ;ON EACH LINE 
014666 0C5720 TST (0)+ > INCREMENT LINE NUMBER (+2) 
014670 006337 001272 ASL LINBIT +SHIFT LINE BIT TO NEXT LINE 
014674 103367 BCC 1$ *>BRANCH IF ALL LINES NOT DONE 
014676 013737 004074 014706 MOV TIME1, 28 ;PUT TIME TO TRANSMIT 1 CHAR 
014704 104400 DELAY *DELAY 1 
014706 O0C000 2: OPEN CHARACTER TIME 
014710 017737 164336 001274 MOV aBAR, RCVDAT +GET & TEST BAR CONTENTS 
014716 001410 BEQ 3$ *BRANCH IF 0 
014720 005037 001276 CLR XMTDAT 
014724 104011 ERROR1 >ERROR! BAR NOT CLEAR AFTER ALL 
014726 005077 164320 CLR @BAR >LINES FINISHED 
014732 005077 164312 CLR acsR 
014736 000520 BR 16% >GO TO EXIT 
014740 ©32777 O20000 164302 35: BIT #61T13. aCSR TEST THAT OVER RUN DID NOT SET 
G14746 001404 BEQ 4$ 
014750 104001 ERROR ERROR! OVER RUN BIT SET 
014752 005077 164272 CLR acsre 
014756 000510 BR 16% -GO TO EXIT 

: TEST THAT THERE ARE 16. VALID DATA ENTRIES 
014760 905077 164264 4%: CLR aCSR >CLEAR THE CSR 
014764 012702 000020 Mov #16., *GET TT SCAN COUNT 
014770 012701 001306 Mow STUNTAB, %1 GET FIRST TT ADDRESS 
014774 005302 5$ DEC %2 ;DECREMENT SCAN COUNTER 
014776 100404 BM! 6$ ;>BRANCH IF 16. ENTRIES SCANNED 
015000 005721 TST (1)+ > TEST FOR VALID DATA ENTRY 
015002 100774 BMI 5% BRANCH IF FOUND 
015004 104001 ERROR ERROR! MISING DATA ENTRY 
015006 000474 BR 16% *GO TO EXIT 
015010 005721 oS: TST (1)+ > TEST 17TH ENTRY (SHOULD BE = TO QO) 
015012 001402 BEQ 7$ *>BRANCH IF 0 
0165014 104001 ERROR >ERROR! EXTRA DATA ENTRY 
015016 000470 BR 16$ . +GO TO EXIT 

- TEST THAT THE DATA IS CORRECT IN ALL 16. ENTRIES 
015020 012791 001306 7$: MOV as TUMTAB. %1 >GET FIST TT ADDRESS 
616024 012702 0o0nd20 MoV #16. -%2 *GET SCAN COUNT 
015030 005302 §$: DEC %2 ;DECREMENT SCAN COUNT 
015032 100421 BMI 10% BRANCH IF 16. ENTRIES SCANNED 
015034 013737 Ol65e4 O01276 MoV OUTBUF.XMTOAT ;GET TRANSMITTED DATA 
015042 043737 001300 901276 BIC CARMSK.XMTDAT ;CLEAR NON-TRANSM!ITTED BITS 
015050 113737 001306 901274 MOVB TUMTAB.RCVDAT ;GET RECEIVED DATA 
016056 123737 001276 00127 CMPB XMTDAT.RCVDAT ;COMPARE DATA 
015064 001402 BEQ 98 
015066 104011 ERROR 1 ERROR INCORRECT DATA 
015070 000443 BR 16% *GO TO EXIT 
015072 005721 96 TST (1)+ > INCREMENT TT ADDRESS 


015074 900755 BP 8$ > TEST NEXT ENTRY 





Os 
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DZOMAC P11 22-NOV-77 17:57 SEQ 0064 
;CLEAR ALL BUT — NUMBER IN TUMBLE TABLE ENTRY 
015676. 012701 001306 105: MOV TUMTRB, %1 ;GET FIRST TT os 
015102 012702 000020 MOV He. %2 GET SCAN COUN 
015106 005302 115: DEC %2 + DECREMENT SCAN COUNT 
015110 100403 BMI 12$ ;BRANCH IF ALL LINES TESTED 
015112 042721 160777 RIC #160777. (1)+ ; CLEAR ALL BUT LINE NUMBER IN TT 
015116 000773 BR 11$ ;DO NEXT TT ADDRESS 
; TEST THAT THERE |S AN ENTRY FOR EACH OF THE 16. LINES 
015120 005037 001276 12S: CLR XMTDAT ' 
015124 612701 009020 MoV #16.,%1 
916130 012752 000620 135: MOV #16.,.%2 
015134 012700 001306 MOV #TUMTAB. ~0 
015140 023720 061276 14S: CMP XMTDAT, (O}+ > TEST FOR LINE ENTRY 
GiS5is4 001406 BEQ 15$ ; BRANCH IF FOUND 
015146 005302 DEC %2 ;DECREMENT SCAN COUNT 
015150 0061373 BNE 14$ ;LOOK AT NEXT ENTRY 
015152 005037 001274 CLR RCVDAT 
015156 104011 ERROR ; ERROR! NO ENTRY FOUND FOR THIS LINE 
015160 000407 ae 16% ;GO TO EXIT 
015162 005301 15S: DEC %\ : DECREMENT LINES FOUND COUNT 
015164 005701 TST %1 
015166 001404 BEG 16$ ;BRANCH IF ALL L'NE TESTED 
015170 062737 901000 60127 ADD #1900, XMTDAT ; INCREMENT LINE NUMBER 
015176 006754 BR 13% ;GO DO NEXT LINE 
015200 104006 168. SCOPE > SCOPE 
ESSNAESEESESE OSS OOO CENA AAAAAAEEEAEAEESEEES ERE EE EEEEDEE OE 
015202 000136 PT1 36. 136 ;ROUTINE # 136 
015204 915516 RT137 ;ADOR OF NEXT ROUTINE. ; 
015206 000144 100. > ITERATION COUNT x 
015210 015212 RT126A ; SCOPE ENTRY POINT. ¥ 
0001 36 X=X+1 


222252005953 09 90999950959 959555955 25555030009 29909 0020222220222 o 2200 2 0 8 | 
; TEST THAT THE DM11 CAN TRANSMIT A BREAK ON ALL LINES SIMULTANEOUSLY 


016212 0145737 004074 015266 RT136A MOV Oe TIME1. 1% -GET TIME TO TRANSM!T ONE CHARACTER 
015220 005037 001306 CLR TUMTAB ; CLEAR 

015224 004537 005732 JSR 5. BMOVE , THE 

015230 001306 TUMTAB , TUMBLE 

0:5232 001307 TUMTRB +1 ; TABLE 

015234 000177 17? 2 
015236 012777 O00001 164004 MoV eB ITO. dCSR SET GO 

015244 012777 177777 164002 Mow #-1, OBKCSR ;SET BREAK BIT FOR ALL LINES 

015252 105777 162772 TSTB aUSF *WAIT FOR THE RECEIVER 

015256 100375 BPL -4 >TO RECEIVE A BREAK 

015260 005077 163770 CLR @EKCSR *CLEAR ALL BREMK BITS 

015264 104400 DELAY »>WAIT ONE CHARACTER 

015266 000000 1$ OPEN > TIME 

015270 022777 900201 163752 CMP #201, aCSP TEST THAT ONLY GO AND DONE APE SET 
015276 001410 BEQ 2$ 

015300 017737 163744 O01274 mov aCSrR, RCVDAT GET CSR ENTRY 

015306 012737 000201 O01276 MOV #201. XMTDAT GET CORRECT RESULT 

015314 104011 ERROR 1 ERROR! INCORRECT CSP DATA 

015316 006476 BF 13$ >EXIT 


TEST THAT THERE iS 16 WALIO DATA ENTRIES 
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015512 006755 BR 10% >NEXT LINE 
015514 104006 :$ 





7 
| 
DZOMAC P11 22-NOV-77 17:57 SEQ 0065 | 
015320 012701 001306 23: Mov #TUMTAB. “1 ;GET TUMBLE TABLE BASE ADDRESS 
015324 012702 000020 MOV #16. .%2 ;GET SCAN COUN 
015330 005721 3%: TST (1)¢ ; TEST FOR ag DATA ENTRY 
015332 100402 BMI u$ ;BRANCH IF VALID DATA ENTRY FOUND 
015334 104001 ERROR ;ERROR! MISSING VALID DATA ENTRY 
015336 000466 BR 13% 7 EXIT 
015340 005302 4S: DEC %2 ‘ DECREMENT SCAN COUNT 
015242 001372 BNE 3$ ;BRANCH IF 16. ENTRIES NOT SCANNED 
: TEST THAT THE BREAK BIT IS SET IN 16. TUMBLE TABLE ENTRIES 
015344 012701 001306 MoV #TUNTAB, %1 
015350 012702 000020 MOV #16. ,%2 
015354 032721 o40000 TF BiT @BITI4, (1)4 ;BREAK BIT SET? 
015260 001002 BNE 6$ ;BRANCH IF SET 
015262 104001 ERROR ; ERROR! MISSING BREAK BIT 
015764 900452 BR 13 SEXIT 
015366 005302 6S. DEC %2 . /DECREMENT SCAN COUNT 
915370 001371 BNE 55 
: TEST THAT THE TUMBLE TABLE DATA BYTE iS ALL O'S 
015272 012701 001306 Mov #TUMTAB, 
015376 012702 900020 MoV #16. .%2 
015402 105721 7 TSTB (1)¢ - TEST DATA BYTE 
015404 001402 BEQ 8$ ;BRANCH IF O'S 
015406 10400! ERROR >ERROR! INCORRECT DATA 
015410 o00441 BR 138 EXIT 
015412 105721 $3 TSTB (1)+ >STEP TABLE POINTER TO NEXT DATA BYTE 
015414 905302 DEC %2 
015416 001371 BNE 75 
-CLEAR ALL BUT LINE Ng IN TUMBLE TABLE ENTRY 
015420 012701 001306 mow #T UNTAB. * 
015424 012702 0900020 Mow #16. 
015430 042721 160777 958. BIC seaarr?,.it? >;CLEAR ALL BUT LINE NUMBER 
015434 005302 DEC %2 
015436 001374 BNE 95 ’ 
> TEST THAT THERE !S A TUMELE TABLE ENTRY FOR EACH LINE 
015440 905004 CLR “4 > CLEAR LiNE NUMBER 
915442 012703 000020 mov #16..%23 
016446 012702 000020 10S. MoV #16. .%2 
015452 012701 001306 MoV #TUMTAB. %1 
015456 020421 11%: CMP %4,01)4 > TEST FOR LINP ENTRY FOR THIS LINE 
015460 001410 BEQ 125 /BRANCH IF FOUND 
015462 005302 DEC %2 
015464 001374 BNE 118 
015466 010437 601276 MoV %4- XMTOAT 
015472 010437 001274 MoV %4,RCVUDAT 
015476 104011 ERROR SERROR' NO LINE ENTRY FOUND FOR THIS LINE 
015500 o00405 BR 13% SEXIT 
015502 005303 125: DEC %3 » ALL LINES BEEN FOUND 
015504 001403 BEQ 135 SEXIT IF YES 
015506 062704 001000 ADD #1000. %4 > SEARCH FOR 
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OZDMAC P14 22-NOV-77 17:57 SEQ 0066 


015516 000137 RT137: 137 ROUTINE # 137 £ 

015520 615534 RT140 ;ADOR OF NEXT ROUTINE. x 

015522 000002 Z ; ITERATION COUNT t 

015524 015526 , RT137A SCOPE ENTRY POINT x 
000137 X=X+1 


me O96 0909559959959 95090095055095355255255229725225 20390202) 0 290239029 0 2 8 | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
015526 004537 005310 RT137A: JSR 5. d#DL YXNT ;GO DO TEST. DELAY 
015532 O00040 32. +; THIS MUCH BETWEEN LINES 
SOOO IOI III I 
015534 000140 RT 140: 149 ;ROUTINE # 140 x 
015536 015552 RT141 ;ADOR OF NEXT ROUTINE. x 
615540 000002 2 ; ITERATION COUNT 4 
015542 015544 RT140A SCOPE ENTRY POINT. t 
000140 X=X+1 


$29 S$09029905055399000092999535 5929555009 02955 5929220500929 2 05599980229! 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


> NEXT LINE. 
015544 004537 GO08310 RT1I4OR: JSP 5, d#OLYXMT ;GO DO TEST. DELAY 
015550 0600020 16. THIS MUCH BETWEEN LINES 

Saya ood ICG OOIIIOIOIIOISIOIIOISOIOIOIGIDIDIIOIICIOIOOIOOIOOIOOOIIAI IODIDE IOI OO 
6015552 000141 PTI4I. 141 ;ROUTINE # 141 ¥ 
015554 015570 RT142 : ADDR OF NEXT ROUTINE ¥ 
015556 o00002 2 ; ITERATION COUNT x 
015560 015562 RT141A ; SCOPE ENTRY POINT. x 

000141 X=X+1 


OOOO IOI ISI DIDIIO III IIISIIOIIn 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
015562 004537 005310 RTI41A: JSR 5, d#OLYXMT GO 00 TEST. DELAY 
015566 900010 8. ; THIS MUCH BETWEEN LINES 

goo pop IOIOOOIOI OOOO OOOO OO IIIS 
015570 000142 RT142: 142 ;ROUTINE # 142 ¥ 
015572 0:5606 RT143 ;ADDR OF NEXT ROUTINE. ¥ 
015574 000002 2 > ITERATION COUNT x 
o1657e 015600 RT142A >SCOPE ENTRY POINT. ¥ 

000142 X=X+1 


SOOO ooo oI IOI IOI OI III III 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 
015600 004537 005710 RT142A: JSR 5, d#OL YXMT ;GO DO TEST. DELAY 
015604 000004 y > THIS MUCH BETWEEN LINES 

Sooo og IOICIOIGIOIOIDIOIOIIOIDIOIOIOIOIOIOIOIDIO IOI AIO OOK 
015606 000143 RT143: 143 ;ROUTINE & 143 x 
015610 015624 RT144 ;ADDR OF NEXT ROUTINE. ¥ 
615612 000002 2 ; ITERATION COUNT x 
0156014 015616 RT143A >; SCOPE ENTRY POINT. ¥ 

000143 X=X+1 


me o000000000005005000000500002220002552020332253250203 5000050202020 00 58888) 
/ TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
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DZ0MAC P11 22-NOV-77 17:57 SEQ 0067 | 

+NEXT LINE. 

015616 004537 005310 RTI43A: JSR 5, O#OLYXNT GO DO TEST. DELAY 

015622 000002 2 ; THIS MUCH BETWEEN LINES 
ie $22$259 9999999595055 9595350 550525053950 59292502098 05020 95028 00 02 0 2 0 8 > 8 | 

015624 000144 RT144:. 144 ;ROUTINE # 144 x 

015626 015642 RT145 ;ADOR OF NEXT ROUTINE. Y 

015630 000002 2 + ITERATION COUNT x 

015632 015634 RT144A SCOPE ENTRY POINT. * 

000144 X=X+1 


029 9602906999600905030505050955505525005 2925502599 0005 2250029399952 0 09) 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
915634 004537 005310 RT1i44A: JSR 5, d#OLYXMT +GO DO TEST. DELAY 
015640 9O00001 1 > THIS MUCH BETWEEN LINES 

SOOO Oooo ISIOIDIIDIIOIIOIOIIOIDIOIOIIOIIOIOOIODIOIIOIIOIOIOIOIOIG OOOO 
015642 O00145 RTi45: 145 ,ROUTINE # 145 x 
015644 016010 RT146 ;ADOR OF NEXT ROUTINE. x 
O1Se4e OO0144 100. ; ITERATION COUNT x 
015650 015652 RT145A ;SCOPE ENTRY POINT. x 

COOLS X=X+1 


S000 ooo OID OOOO OOOO III OOOO IOI III OSI 


> TEST THAT THE DM11 WORKS PROPERLY WHEN THE HALF-DUPLEX BIT (CSR BIT 1) 
; 1S SET. THE TEST TRPANSMITS DATA ON LINE 0. AND ‘BREAKS’ ON LINE 1. ONLY 
> THE BREAK SHOULD BE RECEIVED ON LINE O IN THE TUMBLE TABLE 


015652 005037 001306 PTI4SA: CLR TUMTAB >CLEAR THE FIRST TWO 
015656 005037 001310 CLR TUMTAB +2 TUMBLE TABLE ENTRIES 
015662 012737 016564 001106 MOV #OUTBUF, CAT >SET UP TO 
015670 012737 177777 001146 MOV #-1,WCT ; TRANSMIT 1 CHARACTER 
015676 012777 OO0007 1637244 MOV #7, 0CSR ;SET GO, HALF DUPLEX & MAINT BITS 
015704 012777 000001 163340 MoV #LB ITO, dBAR ; TRANSMIT 1 CHAP. ON LHNE 0 
015712 012777 OO0002 163334 Mov #LBIT1,dBKCSR :SET BREAK ON LINE 1 
015720 105777 163324 TSTB acsR >WAIT FOR THE CHARACTER 
015724 100375 BPL e, /TO BE RECEIVED 
015726 005077 163322 CLR OBKCSR >CLEAR THE BREAK BIT ON LINE 1 
> TEST THAT ONLY THE BREAK WAS RECEIVED 
015732 022737 141000 001306 CMP #141000, TUMTAB ;TDST FOR BREAK ENTRY (LINE 1) 
015740 001410 BEQ 1$ 
016742 013737 001306 901274 MOV TUMTAB,RCVDAT ;GET ACTUAL ENTRY 
015760 012737 141000 001276 MoV #141000. XMTOAT ;GET CORRECT ENTP&Y 
015756 104011 ERROR 1 ERROR! INCORRECT BREAK ENTRY 
015760 000407 BP 2$ -GO TO EXIT 
015762 013737 001310 01274 18: MOV TUMTAB+2,RCVDAT ; TEST THAT NEXT ENTRY IS CLEAR 
015770 001403 BEQ 2$ EXIT IF CORRECT 
015772 005037 601276 CLR XMTDAT 
015776 104011 ERROR 1 ERROR! SECOND ENTRY WAS NOT CLEAR 
016000 005777 163244 2$ TST acsr ;WAIT FOR THE TRANSMITTER 
016004 100375 BPL o& >TO FINISH 
016006 104006 SCOPE > SCOPE 
ro0000200620660060000000250225255 230032939303 5223222 2332555235235 232 229) 
016010 O0014e PT146: 146 ‘ROUTINE # 146 * 
016012 177777 RTLAST ADDR OF NEXT ROUTINE. ‘ 
016014 QO00144 100. > ITERATION COUNT t 
016016 016020 RT146A >SCOPE ENTRY POINT . 
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016020 
016026 
0160934 
016042 
016050 
016054 
016062 
616070 
016076 
016102 
016104 
016106 
916110 
016112 
016114 
016122 
016124 
016126 
016134 
016136 
016140 
016142 
016146 
016150 
016152 
016154 
016156 
016164 
016166 
016170 
016172 
016200 
016202 
016204 
016206 
016214 
O1e216 
Clel20 





000146 


012737 
012737 
013737 
013737 
005037 
012777 
012777 
012777 
012704 
104400 
000000 
005304 
001374 
104005 
017737 
001401 
104011 
017737 
001402 
104011 
000427 
012704 
104400 
000000 
005304 
001374 
017737 
001402 
104011 
000413 
017737 
001402 
104011 
090405 
017737 
001401 
104011 
104006 
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016564 
177770 
004074 
004074 
001276 
000007 
000001 
000002 
0006002 


163130 


163120 


000010 


163066 


163054 


163042 


001106 
001146 
016104 
016150 


163166 
163162 
163156 


001274 


HO1274 


OO12°4 


N01274 


N01274 


MACY11 30(1046) 
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X=X+1 
O06 5 00000000005600000000000006040000000055060000000355922 95200 90d 0 > > 0 8 8 9 | 


; TEST THAT THE DM11 RESPONDS CORRECTLY TO A RESET 
RT146A: MOV #0U + SE 


1$: 


3$ 


4% 
5S 
6S: 


7$ 


9$ 


TBUF, CAT 

Mov #-10,WCT 
MOV TIME1, 2% 
MOV TIME1, 6% 
CLR XMTDAT 
MOV #7, 0CSR 
MoV #LB1TO,. dBAR 
MoV #LB1T1,dBKCSR 
MOV fo %4 
DELAY 
OPEN 
DEC %4 
BNE 1$ 
SRESET 
MOV acSR, RCVDAT 
BEQ 38 
ERROR1 

MOV OBAR, RCVDAT 
BEQ 4§$ 

ERROR 1 

BR 9% 

MOV #5. -%4 
DELAY 

OPEN 

DEC x4 

BNE 5% 

MOV acSR.RCVDAT 
BEG 7$ 

ERROR1 

R 95 

MoV aBAR. PCVDAT 

EQ &$ 

ERROR 1 

BR 94 

Mow OBE CSP. RPCUDAT 
BEQ 98 

ERROR1 

SCOPE 


T UP TO TRANSMIT 10 
; CHARACTERS ON LINE O 
;GET TIME TO TRANSMIT 2 CHARACTERS 


;SET MAINT., HALF DUPLEX & GO BITS 
;START TO TRANSMIT ON LINE 0 
BREAK ON LINE 1 


, WAIT 2 CHARACTER 
> TIMES 


; RESET 

GET CSR CONTENTS 

BRANCH IF 0 

ERROR! CSR DID NOT CLEAR 
>GET BAR CONTENTS 


;BRANCH IF 0 
; ERROR! BAR IS NOT CLEAR 
EXIT 


‘WAIT 8 MORE CHARACTER TIMES 


TEST THAT CSR IS CLEAR 
;ERROR! CSR WAS NOT CLEAR 
GO TO EXIT 

> TES THAT BAR IS CLEAR 
ERROR! BAR DID NOT CLEAR 
> TEST THAT BECSP 1S CLEAR 


SERROR! BECSR CIC NOT CLEAP 
: SCOPE 
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MAINDEC-11-D2DMA-C OM11 LOGIC TESTS 


DZOMAC. P11 22-NOV-77 17:57 SEQ 0069 


;PRG1- TRANSMITTER SCOPE LOOP 


016222 PRGI > BEGIN 

016222 104000 TYPE + TYPE PROGRAM TITLE 
016224 017543 PRGIM 

016226 004737 016402 JSR 7, PARAM GO GET USER PARAMETERS 
016232 004737 016454 PRGIR: JSR 7, LOOP +GO LOOP TRANSMITTER 
016236 005777 163010 PRG1B: TST OBAR ;WAIT FOR ALL LINES TO FINISH 
016242 001375 BNE PRG1B ;BRANCH IF NOT DONE 
016244 005077 163000 PRGIC: CLR acsR CLEAR THE CSR 

016250 005037 016264 CLR PRG1D ; CLEAR i TIME 
016254 117737 162623 016264 MOVs OSWR+1, PRGID ;GET DELA 

016262 104400 DELAY ;DELAY AS SPECIFIED 
016264 90C000 PRGID: OPEN /BY USER 


016266 000761 PRGIR LOOP BACK 











MAINDEC-11-D20MA-C OM11 LOGIC TESTS 
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DZOMAC. P11 


016270 
016270 
016272 
016274 
016300 
016304 
016312 
016316 
016320 
016324 
016326 
016334 
016340 
016342 
010346 
016350 
016352 
016356 
016262 
016366 
016374 
016376 
016400 


016402 
016404 
016406 
016412 
016414 
016416 
016420 
016424 
0160426 
016434 
016436 
016440 
016442 
016444 
O1e44e 
016450 
016452 


016454 
016462 
016466 
016470 
016472 
016474 
016502 
016510 


104000 
017561 
004737 
004737 
012777 
005777 
001415 
105777 
100372 
042777 
020127 
001002 
012701 
005721 
000755 
005077 
005077 
005037 
117737 
104400 
000000 
000737 


104000 
017600 
004537 
000000 
104000 
017623 
004537 
o0vu000 
023727 
101403 
104000 
017444 
000764 
104000 
017467 
104015 
000207 


117737 
004537 
016564 
016565 
000307 
012777 
012737 
004537 


016402 
016454 
000001 
162734 


162724 


000200 
001504 


001304 
162672 
162670 


016376 
162511 


004124 


004124 
016424 


162422 
005732 


001106 
016564 
005732 


162736 


162714 


Ole376 


N1e564 


162554 
001106 
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;PRG2- RECEIVER SCOPE LOOP 
PRG2: 


BEGIN 
TYPE ; TYPE PROGRAM 
PRG2M aTUTE 
JSR 7, PARAM +GO GET USER PARAMETERS 
PRG2R: JSR 7,L00P ;GO START TRANSMITTER 
PRG2A: MOV #B1T0, dCSR ;SET GO. CLEAR THE OTHERS 
PRGZ2AA: TST BAR ;HAVYE ALL LINES SELECTED FINISHED 
BEQ PRG2B ;BRANCH IF FINISHED TRANSMITTING 
TSTS acsR ;WAIT FOR THE RECEIVER TO 
BPL PRG2AA ;RECEIVE A CHARACTER 
Bic #8117, aCSR ;CLEAR RECEIVER FLAG 
CMP %1,#TUMTAB+176 ; 1S THE POINTER AT THE END OF THE TT 
BNE . +6 ;BRANCH IF NOT 
MoV # TUMTAB-Z, %1 ;RESET POINTER 
TST (1)+ , INCREMENT POINTER 
BR PRG2A :GO BACK & TEST TRANSMITTER FLAG 
PRG2B: CLR acsr ;CLEAR THE CSR 
CLR aBAR >CLEAR THE BAR 
CLR Pe G2C >CLEAR USER DELAY 
MOVB @SWR+1, PRG2C ;LOAD USER DELAY 
DELAY a ttn SPECIFIED 
US 


PRG2C: OPEN i BY 
* oR PPGZR »REPEAT LOOP 


SUBROUTINE TO GET USER PARAMETERS (FOR PRG1I & 2) 


PAPAM. TYPE >ASK USER WHICH LINE 
L | NPARR >TO VEST 
JSR S.PECO >;GET LINE AND PUT IT 
LINE Q > HERE 
PAPAMA. TYPE “ASK USER HOW MANY 
HOWMAN > CHARACTERS TO TRANSMIT 
JSR 5, RECO >GET CHARS AND PUT IT 
CHAPS. 10 » HERE 
CMP CHAPS, #200 -LIMIT RESPONSE TO 200 
BLOS PAR AME » (CORE LIMITATION) 
TYPE 
M1 
BR PRFAMA -PE-PEQUEST PARAMETER 
PARAMB. TYPE TYPE INSTRUCTIONS 
M4 
CNTLU /GO GET VALUE 
RTS ? EXIT 


/SUBPOUTINE TO TRANSMIT CRTA FROM THE SP 


LOOP MOWB OSWR. OUTBUF /FILL OUTPUT 
JSR 5, BMOVE » BUFFER 
OUTBUF / WITH 
OUTBUF +1 DATA TO BE 
199. » TRANSMITTED 
MoV SCAT, OBASPEG INITIALIZE BASE PEGISTEP 
MoV #OUTBUF. CAT »LOAD CURRENT 
JSR 5. BNOVE AODPESS TABLE 


SEQ 0070 








MAINDEC-11-O2D0MA-C OM11 Re oy TESTS 


OZOMAC. P11 


016514 
016516 
016520 
016522 
016530 
016534 
016540 
016542 
016544 
016546 
016554 
016562 


OleSe4 


16730 


017074 
617100 
017104 
017112 
017120 
017122 
017124 
017126 
017134 
017142 
017146 
017152 


017154 
017162 
017164 
017172 
017174 
017200 
017206 
017214 
017222 
017224 
017226 


017230 
017236 
017240 
017242 
017244 


22-NOV-77 


001106 
001110 
000040 
013737 
0054 37 
004537 
001146 
001150 
000040 
013737 
013777 
000207 


000000 
016736 
00c000 
017074 


G13746 


000002 


022737 
091021 
023737 
001415 
005037 
117737 
142737 
122737 
001001 
104015 
000002 


022737 
001022 
104900 
017323 
004537 


016424 
001146 
005732 


016412 
016412 


n00006 
000004 
017124 


177777 


0001 7% 
000174 
NN0004 
000006 


000176 
000042 
017266 
162372 


000200 
000007 


000176 


N0See- 


001146 


001272 
162470 


N00004 
lelvec 


001102 
901194 


001102 
N00046 


017266 
317266 
017206 


N01102 


MACY11 30(104%6) 
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CAT ; WITH ADDRESS 
- ;OF OUTPUT BUFFER 
MOV CHARS, WCT ;LOAD WORD COUNT 
NEG WCT ; FORM TWO'S COMPLEMENT 
JSR 5, BMOVE ; TABLE WITH 
WCT ;NUMBER OF 
WCT4+2 ; CHARACTERS TO BE 
32. ; TRANSMITTED 
MOV LINE,LINBIT ; SAVE LINES TO BE TRANSMITTED ON 
Mow LINE, dBAR >; START TRANSMITTING ON SELECTED LINES 
PTS 7 ; EXIT 
OUTBUF: 5 ;FIRST ADDRESS OF 100 
. =OUTBUF +100 ; CHARACTER OUTPUT BUFFER 
iNBUF: “FIRST ADDRESS OF 1009. 
. = INBUF +100. > CHARACTER INPUT BUFFER ‘(WHERE RECEIVED 
:DATA |S STORED) 
SUSWRP: MOV a56.-(SP) ; SAVE VECTORS 
MOV ae4,- (SP) 
MOV #15. 084 ;SET UP FOR TIMEOUT 
CMP #-1, dSWR >REFERENCE HARDWARE SWITCH PEGISTER 
BEQ 2 
BF 3$ 
1% CMP (SP)+, (SP )+ ;ADJUST STACK 
2$ MoV # SWREG, SWR >POINT TO SOFTWARE SWITCH REG 
MOV #D1SPREG, DISPLAY >POINT TO SOFT DISPLAY REG 
3§ MQW (SP +. a4 /PESTOPE WECTORS 
MOV (SP )+. aR6 
PT! 
;ROUTINE TQ CHECK FOR G BEING TYPED 
KBDINTT: CMP &SWPEG. SWP 
BNE 1$ 
CMP O42, dR46 ;ACTI17? 
BEQ 1$ BR IF YES 
CLR TMP 1 CLEAR TEMP APER 
MOVB aTKDBR. THF) >FETCH THE BUFFER 
BicB #200. TMP 1 :STRIP CFF PARITY 
CMPB #:. TMP 1 WAS IT G 
BNE 1$ . NOP 
CNTLU . GO CHANGE |T 
1$ PT! SEXIT 
:POUTINE TO CHANGE CONTENTS OF SWREGILOC 175) 
CNTLUU- CMP a SWREG. SWP 
BNE FX 
TYPE 
SSWREG 
isp PS. OAC NI CONMERT TO BSCr: 


SEQ 0071 
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017250 000176 SWREG 

017252 017331 SVALUE 

017254 O00006 6 

017256 104000 TYPE 

017260 017331 SVALUE 

017262 004537 004124 JSR 5, RECD >GET TMP1 AND PUT IT 

017266 000000 TMP 1: 0 * HERE 

017270 022737 000007 004302 CMP #7, CNT 

017276 001402 BEQ F JX 

017300 013777 017266 161574 MoV TMP 1, dSWP > CHANGE CONTENTS OF SWREG 


000002 F JX: 





SEQ 0072 


oe 
MAINDEC-11-O2DMA-C DM11 ye oy TESTS MACY11 30(104%6) 30-NOV-77 09:34 PAGE 21 
O7TOMAC Pt 22-NOV-77 17:57 SEQ 0073 


; MESSAGES 
017310 OS3045 041505 020124 WHERE: ASCII ‘%VECT ADR7Q' 
017316 042101 037522 100 
017323 O4S 053523 036522 SSWREG .ASCII ‘%SWR=0' , 
017330 100 
017331 040 O20040 020049 SVALUE: ASCII ' NEW=9' 
017336 020040 020040 047040 
017344 053505 040075 
017350 036445 SCTLU: . ASCII =' 
017352 052445 044516 021524 WHICH: . ASCII UNIT#(8)70' 
017360 O34050 037451 100 
017365 O4S O44103 051101 LEVEL: .ASCII ‘%CHAR LNGTHO’ 
017372 O4€040 043516 044124 


017401 04S 051105 020122 ERDAT ASCII! ‘EPR SB 
017406 027523 035102 040 

O17413 040 020040 020040 AASB: ,Re * WAS: ' 
017420 020040 040527 075123 


317427 O40 O20040 O200N0 AWAS. ASCII ° a: 


017436 050045 043522 040043 MO ASCII ‘%PRGRQ' 
017444 O37445 100 M1 ASCII ee 

017447 045 047105 O40104 M2: ASCII 2END' 
017454 051445 036522 O374e0 Mi Scil '%SP=20? GO. a 


Nx 


017467 045 042114 O41440 M4 ASctt "%LO CHAP IN SPO-7;D0LY IN SPS-15a' 


017527 04S 047514 044507 PRGOM: Ascii “LOGIC TSTSa’ 
017534 — 051524 051524 


017543 04S 046530 052111 PRGIM ASCII 'UMMITTEP LOOPa’ 
017550 042524 020122 047514 


017561 04S 046530 052111 PPG2M. ASCII ‘“.KMIT/PEL LOOP’ 
01756e 051057 041505 046040 


617600 052045 050131 O46804C LINPAP: ASCH! ‘TYP LINES TO TST gi’ 
017606 047111 051505 952040 
017614 020117 051524 020124 


017623 O4S O47443 020106 HOWMAN ASCII! ‘ROOF CHARS? a’ 

017630 O44103 651101 037523 

017636 100 

017637 045 020122 EMO: .OSCit "ma 

017642 920040 O50040 036503 ATNUMB. ASCII © PC=' 

017650 020040 020040 020040 APC: .ASCII @' 

017656 100 

017657 015 012 MSGI: _ BYTE 15,12 

017661 124 042510 050440 ASCI! ‘THE QUICh BROWN FOY JUMPED OVER THE LAZY COGS BACe 12345e7890" 


017666 044525 045502 041040 
017674 O47622 O47127 O4SO4N 





en 


MBINDEC-11-O2DMA-C OM11 By ty TESTS 


DIOMAC P11 


017702 
017710 
017716 
017724 
017732 
017740 
017746 
017754 
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054117 
042520 
051105 
046040 
047504 
041501 
032063 
030071 
000001 


045040 
020104 
052040 
055101 
051507 
020113 
033065 


046525 


031061 
034067 


MACY11 30(1046) 


END 
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SEQ 0074 
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OZOMAC P11 22-NOV-77 17: 57 SYMBOL TABLE SEQ 0075 
«4 = 000000 CAT 001106 ERROR = 104001 LINE12= 000024 PARS 006546 
AAS 017413 cc = 177776 ERROR1= 104011 LINE13= 000026 PAR6 006550 
APC 017650 CHALT = 104003 ERRVEC= 000004 LINE14= 000030 PASS 001624 
APCADD 001610 CHARS 016424 ERR1 001672 LINE15= 000032 PCADD 001606 
AREA 013234 CLKINT 001260 ESCOPE 002406 LINE16= 000034 PFAIL 004304 
ATNUMB 017642 » CLKLVL 001262 F JX 017306 LINE17= 000036 POPSP = 005726 
AWAS 017427 CNT 004302 FORWD 002554 LINE2 = 000004 POPSP2= 022626 
Al2K 013254 CNTLU = 104015 FORWOR 002600 LINE3 = 000006 PRGLIM 001522 
Riek 013260 CNTLUU 017230 GETROY 002306 LINEY = 000010 PRGNUM 002162 
ALOK 013264 CNYVDAT 002040 GTBIN 005612 LINES = 000012 PRGTAB 001524 
ACY 013270 COUNT 001604 GTLINB 006552 LINE6 = 000014 PRGO 006604 
ALSK 013274 CSR 001250 GTRDYA 002324 LINE? = 000016 PRGOM 017527 
Agr 013244 CURTST 001510 GTRDYC 002346 LINPAR 017600 PRGOR 006626 
BRR 001252 DATCHK= 104002 GTRODYD 002370 LOOP 016454 PRG1 016222 
BASREG 001256 DATTST 006020 GTROYX 002314 LTSTO 011162 PRGIB 016236 
BAT 001206 DATO 014252 HOWMAN 017623 LTST1 011200 PRGIC § 016244 
BELL = 000007 DAT1 014270 ICTR 001516 LTST10 011342 PRGiD 016264 
BiT0 = 000001 DATIAR 006024 INBIN 005562 LTST11 011360 PRGIM 017543 
BiTi = 000002 DATIO 014432 INBUF 016730 LTST12 011376 PRGIR 016232 
B1T10 = 002000 DAT12 014450 INCRTN 001626 LTST13 011414 PRG2 016270 
BiTi1 = 004000 DATIZ 014466 INIT 003142 LTST14 011432 PRG2ZA 016304 
BiT12 = 010000 DAT13 014504 INITIA= 104012 LTST15 011450 PRGZAR 016312 
BiT13 = 020000 DATI4 014522 KBDIN = 104014 LTST16 011466 PRG2B 016352 
BiT14 = 040000 DATIS 014540 KBDINT 017154 LTST1i7 011504 PRG2C 016376 
BiT15 = 100000 DATie6 014556 KSTART 001506 LTST2 011216 PRG2M 017561 
BiT2 = 000004 DATI7 014574 LBiTO = 000001 LTST3 011234 PRG2R -016300 
BiIT3 = 000010 DATC 014306 LBIT1 = 000002 LTSTY 011252 PRTYO = Q00000 
BiT4 = 000020 DAT3 014324 LO1T1O= 000400 LTSTS 611270 PRTY1 = 000040 
BITS = O00040 DAT4 014342 LBIT1i1= 001000 LTST6 011306 PRTY2 = 000100 
BiTé = 000100 DATS 014360 LBIT12= 002000 LTST? 911324 PRTY3 = 003140 
BIT? = 000200 DAT6 014376 LBITI3= 004000 MACHER 000004 PRTYY = 000200 
BiT8 = 000400 DAT? 014414 LBITi4= 010000 MANUAL= 100000 PRTYS = 000240 
BiIT9 = 001000 DELAY = 104400 LB1T15= 020000 MSG1 017657 PRTY6 = 000300 
BKCSR 001254 DISPLA 001104 LBIT16= 040000 MO 017436 PRTY? = COO34O , 
BMOVE 005732 DISPRE 000174 LB!T17= 100000 M1 017444 PRVCNT 001612 
BRKTST 005164 OLY 005506 LBIT2 = Q00004 M2 017447 PSH = 177776 
BRKO 013712 OLYXMT 005310 LBIT3 = 000010 M3 017454 PTO 005606 
BRK1 013730 DOMPAR 003172 LBITY = 000020 M4 017467 PT1 - 005610 
BRKIO 014072 OMPARB 003454 LBITS = 000040 NOF == 000240 PWRUP QO04314 
BPK11 = =6©014110 DMPARC 003600 LBITe = 000100 NXTST 001514 RCVDAT 001274 
BRKI2 014126 DTCHK 001634 LBIT? = 000200 QACNY 005662 RCVTST 004542 
BRKIZ = 014244 EHALT = 104004 LENGTH 003620 QACNVA 005674 RCVO 011522 
BRK14 014162 EMO 017637 LENOKA 003636 OPEN = 900000 RCV1 011540 
BRK1S 014200 EMTINT 002606 LENOKB Q03646 QUTBUF 016564 RCV10 8=—©011702 
BRK16 014216 EMTTAB 001540 LENOKC 003654 GVRLAY 004100 RCVi1 011720 
BRK17 014234 ERDAT 017401 LENOKD 003714 PARAM 016402 RCV12 §=011736 
BRK2 013746 ERR 001654 LEVEL 017365 PARAMA 016414 RCV13) =.011754 
BRK3 013764 ERRA 001712 LINBIT 001272 PARAMB 016444 RCV14 011772 
BRKY 014002 ERRB 001754 LINE 016412 PARQ 006534 RCVi5 012010 
BRKS 014020 ERRC 001762 LINEO = 000000 PARI 006536 RCV1i6 012026 
BRK6 014036 ERRD 002014 LINE1 = 000002 PAR2 006540 RCV17 =: 012044 
BRK? 014054 ERREX 002034 LINE10= 000020 PAP 3 006542 RCV2 011556 
CAPMSk 001300 ERPRHLT 002032 LINE11= 000022 PAPY 006544 RCW? 011574 
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DZ2DMAC. P11 22-NOV-77 17:57 SYMBOL TABLE SEQ 0076 
RCV4 011612 RT121 014332 RT21 010456 RT62 011762 TIME14 004076 
RCS 011630 RT122 014350 RT21A 010466 RT63 012000 TKCSR 001574 
PCV6 011646 RT123 . 014366 RT22 010564 RT64 012016 TKOBR 001576 
PCV? 011664 RT124 = 014404 RT22A 010574 RT65 012034 TMP 1 017266 
RECD 004124 RT125 =014422 RT23 010672 RT66 012054 TPCSR 001600 
RIND 005604 RT126 §=©O014440 RT23A 010702 RT66A 012070 TPOBR 001602 
RNGEN 002756 RT127. 014456 RT24 011000 RT67 012314 TTOAT 001270 
RORPAR 006472 RT13 ° 007652 RT24A 011010 RT67A 012324 TUMTAB 001306 
PPI 003024 RT13A 007662 RT25 011044 RT7 007302 TYP 003030 
PP2 003026 RT130 4 =66014474 RT25A 011054 RT7A 007312 TYPA 003040 
PSTART 001532 RT131 014512 RT26 011152 RT70 012424 TYPC 003056 
RPSTAT1 002134 RT132 014530 RT27 011170 RT70A 8 012434 TYPD 003074 
PSTATZ2 002222 RT133 014546 RT3 007032 RT71 012540 TYPOAT 003140 
PSTPC }§=©002734 RT134 014564 RT3A 007042 RT71A 012550 TYPE = 104000 
PSTPSW 002736 RT135 014602 RT30 011206 RT7Z 012734 TYPF 003112 
PSTREG= 104010 RT135A 014612 RT31 011224 RT72A 012744 TYPG 003124 
PSTRG 002700 RT136 015202 RT22 011242 RT73 013300 UNIT 003474 
PTLAST= 177777 RT136A 015212 RT33 011260 RT73A 013310 UNTOKA 003514 
RTNNO 001512 RT137 015516 RT34 011276 RT74 013514 UNTOKB 003540 
RTO 006644 RT137A 015526 RT35 011314 RT74A 013524 UNTOKC 003570 
RTOA 006654 PT14 007764 RT36 011332 RT75 013702 VAC 001246 
RT1 006706 RT14A = =—607774 RT37 011350 RT76 013720 VECOK 003374 
RT1A 006716 RT140) =—6.015534 RTY 007104 RT77 013736 VECOKA 003404 
RT10 007354 RT140A 015544 RTYA 007114 SAVREG= 104007 VECOKB 003412 
RTi0AR 007364 PT141 015552 RT4O 011366 SAVRG 002640 VECTOR 003356 
RT100 013754 RTI41AR 015562 RT41 011404 SCOPE = 104006 WCT 001146 
RT101 013772 RT142 015570 RT42 011422 SCOPEA 002444 WHERE 017310 
RT102 014010 RT142A 015600 R743 011440 SCOPEB 002450 WHICH 017352 
RT103 014026 RT143 015606 RT4Y 011456 SCOPED 002504 x = 000146 
RT104 014044 RT143A 015616 PT4S 011474 SCOPTR 001520 XMITD 005754 
RT105 014062 RT144 015624 RT46 011512 SPBOT 001100 XMTDAT 001276 
RT106 014100 PT144A 015634 RT47 011530 SRESET= 104005 XMTINT 001264 
RT107 014116 RT145 015642 RTS 007156 SRSET 002254 XMTLVL 001266 
RT11 007426 RT145A 015652 RTSA 007166 SRSETT 002740 XMTTST 004330 
RT11A 007436 RT146 016010 RTSO 011546 START 902066 Y = 000020 
RT110) =. 014134 RT146A 016020 RT51 011564 SUSWR = 104013 S$CTLU 017350 
RT1i11 014152 RT15 010024 PTS2 011602 SUSWRR 017074 SENDAD 002544 
PT112 «601417 RT15A 010034 PTS3 011620 SVRPC 002674 SSWREG 017323 
RT113 Q14206 RT16 010160 RTSY 011636 SVRPSH 002676 SVALUE 017331 
PT11% 014224 RT16A 010170 RTSS 011664 SWR 001102 = 017756 
RT115 =014242 RT17 010276 RTS56 011672 SWPEG 000176 . BAR 001616 
PT116 «=©014260 RT1i7A 010306 PTS? 011710 TIMER 004000 .BASRE 001622 
PT117 014276 RT2 006760 RT6 007230 TIMEB = 904034 BKCSR 001620 
RT12 007516 PT2A 006770 PTA 007240 TIMEC = =004044 CSR 001614 
RT12A 007526 RT20 010370 FToO 011726 TIMER = 003724 

RT120 =6014314 PTZOR 8910400 PTol 011744 TIME? 004074 


ABS. 017756 000 


ERRORS DETECTED: O 


» OZDMAC. SEQ/NL: SEQ=DZDMAC. P11 
RUN-TIME: 5 9 .5 SECONDS 
RUN-TIME RATIO: 426715=27. 
CORE USED: 13K (25 PAGES) 


| 


a 6 ' 
MAINDEC-11-O20MA-C DM11 S°S3 TESTS MACY11 30(104%6) 30-NOV-77 09:34 PAGE 22-2 
OCOMAC P14 22-NOV-77 17:57 SYMBOL TABLE SEQ 0077 


